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Introduction 


Everybody knows that computers are used for all kinds of serious purposes — 
financial calculations, business applications and text processing, for instance. 
They can, however, help us in another way. As the proverb says ‘All work and 
no play makes Jack a dull boy' and it's certainly true that we all need some- 
thing to keep the cogwheels of our mind turning when we are not considering 
the ‘important’ things in life. So we read books, do hobbies, and play games. 

Bruegel's wonderful painting ‘Children at Play’ shows us that this has been 
true for centuries, if not forever. 

This book aims to provide something for everybody from 6 to 96. There 
are games to play on your own, and others to play with your family and 
friends. You will find fast action games to test your reflexes and your ability to 
control many moving objects on the screen; puzzles and brainteasers to get you 
thinking; board games where you pit your wits against the computer; and, of 
course, some wonderful arcade-type games which combine aspects of all of 
these. There are also some very intriguing games which are in a class of their 
own. 

A number of the games have been devised to give interesting and worth- 
while results from relatively short listings that will not take much time to enter. 

Looking again at ‘Children at Play’ a thought springs to mind. If Bruegel 
were alive today, would his painting look something like this .. . 
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Zombies in the Swamp 


Watch out! There are zombies about, and you have to cross the swamp where 
they live. To do this you must walk across on rafts. 
At the start of the game the swamp looks like this: 


WAY OUT 
à 


here you are, 
standing on a raft 


You are at one corner, and you must reach the diagonally opposite corner to 
escape. 

Use the appropriate cursor key to position a raft next to the one you are 
standing on, and again to step onto it. 

So far so good, but beware! From time to time one of those zombies will 
emerge from the swamp and run across the rafts you have positioned. If you 
are in its way it will catch you. Luckily, zombies can’t see very well so they 
often fall off the rafts back into the swamp. 


1 


To succeed in this exciting game you must develop your own strategy. The 
longer and more complicated your path the less likely the zombies are to catch 
you, but, on the other hand, it will take you longer to get across the swamp, 
giving time for more zombies to appear. 

Oh no! Here come those terrifying zombies again. You had better just 
hope they don’t catch you. 
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БЕМ nt 15 at Х,У 
PRINT FT 244,34x; PAPER 5.1 


1323 PRINT HT 2+Ч+1,.3+#х; PAPER Є 
EEE TO 

1838 RETURN 

1100 БЕН init 

1130 LET mz LET px=8: LET руб 
: LEI KOO SL 

еф TO 17: PRINT AT K:6 
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1220 LET t$=INKEYS 

1230 L dx=it$="8")-it$="5") 
1248 L dyuziít£z"6")-(t$s'"7?") 
1850 IF (dx+d3d31=@ THEN GO TO 122 
e 

1260 GO TO 139004100засїрх-ах,руоза 
4! 

1300 FEM throw | 
1310 LET хэрх-4х: LET черч»ач: L 
ЕТ аїх,Чі зі 


1320 LET 4: 
13 зо 50 sue "iĝe 
40 RETURN 
14 2 БЕН move 
1419 LET херх: LET шеру: LEF tés 
єв: GO SLE 1800 
1420 LET px=px+dx: LET рчу-рч-а4ач 
1430 IF (pxsl) OR tpgsi) THEN 
TO 1588 
1440 LET xspx: LET цер: LET 15: 
F$: GO SLE 1200 
1450 RETURN 
1500 БЕН succeeded 
1516 PRINT AT 280,0; '"* YOU MADE IT 


15280 LET 5 -1МЧКЕҮ5- 
1530 IF $5£z"" THEN GO TO 1509 
1540 RUN 
15600 БЕН monster moves 
1510 LET ax=7: LET 484 7 
1620 LET x=mx: LET фену: LET 1%- 
ms: GO SUB 1000 
1636 GO SUB 21200-2410*«INT (RNDx*2! 
1640 LET lixzdx: LET tuedy 
1720 REM choose new direction 
1710 IF aimx4+lx.my4ely1 «1 THEN GO 
EU. 1988 

20 IF atmx+ly,my—-lx) =1 OR а tmx 
218, йЧ-1Хх1:1 THEN GO TO 2028 
1800 REM same direction 
1810 LET ахих: LET düisig: GO TO 
2200 
1900 БЕН swamp ahead 
15910 GO SUB 2120-105-1МТ {РНС +4 
1920 IF а(их44х, Ч44441-:41 THEN С 
Ü TO 1910 
19838 со ТО 2288 
2000 REM possible turn 
ЕСб18 50 SUB Е128-10-1МТ (REhDx*4àá: 
2020 IF (4х--1х AND 44:-14) QR | 
а (mx +d3x ,нЧ 444141) THEN GO TO 180 
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2030 co TO 2208 
2180 LET 4х-0: LET dy=-1: RETURN 


2118 LET dxz-1: LET 44:0: RETURN 
2120 LET dxzà: LET 44:-1: RETURN 

2130 LET dx=1: LET 44-02: RETURN 

2200 REH execute mave 

2210 LET x=mx: LET gsmu: LET t= 


е: GO SUB 1809 

2220 LET мх = хаах LET шыстыағаы 
2230 LET lx =dx LET Lu zdu 

2240 IF aim: Au 28 THEN GO TO 22 





әс 

2250 LET хх: LET gysmy: LET іде 
me: GO SUB 1990 

2260 IF Hx=px AND mguzpu THEN Gü 
то 2480 

2270 cO TO 1700 

2300 REM monster drowned 

2310 LET aimx,mu)z-1 

euee LET xsmx: LET gsmu: LET їйл 
d$: GO SUB 18800 

2030 RETURN 

2400 REM player caught 

2418 PRINT AT 28.80; “SORRY, YOU H 
АМЕ JUST BEEN EATEN" 

2428 LET S$=INKEYS$ 

2430 IF s$£-"" THEN GO TO 8428 
2440 RUN 

3090 REM main program 

3010 50 SUB 1100: REM init 

3020 00 SUB 1200: REM move 

3030 LET m=m+l 

3040 IF (px+py)4RNOod OR m<= THE 
м GO TO зага 

3050 GO SUB 1600: REM monster 
з060 со TO зага 


Galactic Monsters 


There it is, registering on the x-y-Gz radar. At last, you are approaching the 
Milky Way. In just 2.56 protoseconds you will be safe in your home galaxy! 

But there is danger here, and as captain of your ship, you know very well 
what it is. You keep a watchful eye on the XR6-screen. No alert yet. The 
tension is unbearable ... 2.5 protoseconds ... 2.0 protoseconds ... 1.5 
protoseconds ... oh no! There it is — 


THE VAN ALLEN SQUARE STONE BELT 


There are a number of these notorious belts, and in them lurk the dreaded 
Galactic monsters. No weapon can defend you against these vengeful creatures; 
all you can do is avoid them. 

Once the program is started and you see a VAN ALLEN SQUARE 
STONE BELT then you can move yourself by pressing: 


one SQUARE upward 
«— one SQUARE to the left 
—» one SQUARE to the right 
| опе SQUARE downward 


Those terrible Galactic monsters will approach closer and closer. Your only 
hope for survival is to avoid them! If you cross a VAN ALLEN SQUARE 
STONE BELT a second time, the monsters will become more aggressive. Some- 
how, they seem to anticipate your every move. If they manage to attack you 
five times, you and your ship are totally destroyed. 

Good luck, captain . . . only a few protoseconds to go, and you are home 
free! 


4.......-... 





Бан m» aw 37 





10 БЕН GALACTIC MONSTERS 
aeg GO SUB 880 
1098 FOR t=1 TO 11 

110 FOR z=1 TO 11 
ір PRINT AT 54t,.9427; "0" 
130 NEXT Z 
140 NEXT t 
150 IF к»4 THEN GO TO 700 
158 LET zscorzsscaor4a4num-turn-Ssk 
170 LET numznum-42 
188 LET turrize 
190 BEEP .5,3 
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FOR 1-1 TO 11 

PRINT AT 13,9+1; "Р" 
HEXT t 

PRINT AT 6, POR 


à 
15: LET u (t) =941 


IF Юю-4 THEN GO TO тае 
PRINT AT х1,0у1; “oO” 
LET turnsturnst 
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IF х1:16 THEN GO ТО 1889 
со SUB See 

со TO 388 

FOR Хе TO 21 
PRINT AT xit) ,ytt)i,; O" 
ТЕ RHD:chance THEN GO ТО 


azINT (RHNHD*4) : GO ТО 


ІЛ 
18 


г 
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Х(112Х1(11:415Х 11141621: GO 
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Хї(Үу/5Х1(113-1Х113)302: GO 
GELI SGU HEYET} {AUF}: GO 


t L t k еп (12 < Cp 1035981: GO 


хі-х (1): LET ye=yi- 


В THEN LET x t€ j, =X tt 

ell BO TO 6га 
i ш} (t) +SGN ізге: 

PRINT AT xit), A ttis "m" 
HEXT t 
FOR usi ТО її 
PRINT AT y CUI ,Уу си); "Р" 
MEXT u 
FETURN 
PRINT "THE END OF THIS GAME 


PRINT “YOUR SCORE IS “scor 


ня 


TgÜÓ STOP 

cud FEM init 

210 DIM ©1127 DIM utizl 

820 LET chances: LET scor=8 

Sse LET teurneQ@: LET ks 

848 LET numza 

5580 FOR i=@ TO 7: READ fig: РОК 
E USE “ptt. Fig: ЧЕК i 

cage FOR 1-20 TO 7: READ Fig: РОК 
E USR “G"4+i,f39: NEXT i 


Ө?Ө FOR 1-0 ТО 7: READ Fig: РОК 
E USE "r"4i,Tig: NEXT i 

900 RETURN 

1300 CATA BIN О0ОС0000000.БІМ 81120 
119,БІМ 81000010, BIN Өйй11860,51 
м авёа11000,БТЫм 01000010,81Мм 9911 
1100,8 

1010 DATA @,ВІМЧ 01111110,БІМ 211 
11110,BIM 81111110,BIN 21111110," 
ВІН 811111102,БІМ 01111118,2 

10220 CATA BIN 00011000,БІМ 00011 
ооо,БІМ 80111102,51М @18011018,51 
М 12011001.БІМ 00111100,8Т1Ы 0017 
Ф100,ВБІМН 01120110 
8999 FOR ісі ТО 100: PRINT AT 18 
49: "0 s NEXT i 


Keyboard Memory 


This game uses the computer keyboard to test your memory. Eighteen of the 
keys each conceal a character, in the same way that a playing card, lying face 
down, hides its value. There are nine different characters, each hidden by two 
keys. 

The symbols of the keys you must concentrate on are shown on the screen. 


M Po 
>x о 
(5 79 m 
« 7 2 
Іш Z 4 
= a 


Press a key and the character it is hiding will be shown on the screen: press 
two, one after the other, and if they are both hiding the same character their 
symbols will disappear from the screen. 

Your first few attempts will obviously be guesses but by memorizing the 
positions of the characters they show you should soon be able to work out 
where the pairs are. How few turns will it take you to clear the screen 
completely? 





= REM keyboard memory 
10 DIM 15(1,18:: DIM wHt(1,18): 
DIM 4*$i1,2): DIM nites 
ge LET rzINT 'RND«*3241!) 
30 CLS RANDOMIZE 
35 LET 10:52: LET TES 
48 LET aSz"aquwuertyasdfghzxcvbr 
ег LET B$2'"i7265622517344020252z 
та FOR n=l TO 18 
ae LET CSEE H) =а% (тҮ) 
Өй LET dis=ner 
100 IF 4:5:19 THEN 50 TO ірге 
1i@ LET dis=d12-18 
1220 LET w$ii,n)szb$ídiz! 
138 NEXT n 
Ago LEF пії)еб0: LET nite) Еа 
148 FOR KEI TO 3 
ton FOR 421 ТО 6 
16@ PRINT AT dekh, 445; LR Il, ik —1 
#5 + 1} 
170 HEX E 
180 HEXT « 
1230 FOR kzi TO 2 
200 LET k$zIHKEY 
210 IF k£s"" THEN GO TO 20 
220 LET q$:íi.k)zk*t 
AOU LET st 50 
248 LET tustud¢i 
250 FOR nzi TO 18 
250 LET kk =INT (1П-8,51/У6-41) 





10 


220 LET j=n-(kk-1) +6 
280 IF t$£il,n)i»4$(1,k) THEM GO 


TO 


318 


230 PRINT AT á&xkk,4xj;u$Sil,n?! 

300 LET nik} =n 

310 NEXT п 

315 ІР nfi)snhn(g) TREN ВЕЕР . 35,1 
в: со то 288 


зад 


NEXT k 


330 IF нй(1,(11(113)1У.651(1,8(28)), T 
HEH GO ТО 135 


348 
350 


4. 


23 C GI GIE 
M ap Cn = Cr 
un Cof» С б 
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LET їє=їе +1 

Ler tet. An tise = 

LET 384 fed ж” = 

IF te<S THEN GO TO 135 

CLS 

PRINT AT 15,5; "number ої tu 
"s vM 


11 


Las Vegas a Go Go 


Have you ever watched someone pumping coin after coin into a one-armed 
bandit, and found yourself wondering what the fascination was? You will soon 
find out when this program turns your computer into a fabulous Las Vegas- 
style fruit machine. All the playing instructions you need will appear on the 
screen. At certain points you will be presented with a list of options, for 
instance 


INSERT, HOLD, PLAY, OR END 


Enter your choice by typing the first letter of the option you want, for instance 
P keeps your machine playing. The reels are numbered 1, 2, and 3. If you want 
to hold one or more reels, type in the appropriate number or numbers after you 
have entered H. 

Lights will flash and music play as the wheels whiz around. Have you won 
this time? Never mind, you are sure to hit the jackpot sooner . . . or later! 








10 БЕН ##4LAs VEGRS+4++ 

199 DIM ((3,13): DIM 1115): LET 
JES 2: LET Ба LET FIST 
1198 LET u$z"HEGUT xtüO-^-4Hu 


120 FOR 1-5 TO 12: READ ría3,i! 
г (3,1) NEXT i 

130 DATA 6, ,48,25,40,7,30,5,25, 
ЕО. ЕР.2. 548 218 

140 DIM ACS): DIM Рї3З): DIM CU 


DIM КІЗ): DIM v(4): DIM oi3 
9141: DIM eid 
FOR 1-1 TO 3: READ pli): NE 
FOR ізі TO 4: READ dii): RE 


(1,1): READ ё(1,2): NEXT i 
DATA 12,14,16,12,1,14,13,2. 
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D X 
пає pore fUr C9 p د‎ HH p ТЕЛЕ 
шш oO > 
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= Г 5,3,14, 16,2,9 

ӘӘ LET b=" в". REM 

24 

46 LET nte-4: LET Maser: LET ni 
зд: LET Wi sø 

26 LET Absa: LET 40:80: LET dcs 
й: LET daa 

230 LET jcsQ: LET NOS: LET "ис 
Ө: LET габ: LET 48:02: LET ТӨ: 
LET ng=@ 

240 FOR isl TO 3: LET v (il зіІМТ 


(RNDz14): NEXT i 
еге со TO 4888 | 
1000 БЕМ +44FlLASH == AND GET INK 
EY эх». 
1210 қ алан AY f,c; OVER 1; FLASH 
3) 


1822 ет 198-:1ЧКЕҮ : IF i$z"" THE 
H GO TO 1020 

1030 PRINT AT rc; PAPER clits: 
1040 RETURN 

1122 REH $#4ADD INCREMENT ТО МОМ 


1110 FOR i=SGN (in) TO in STEP 5 
GN fin) 

1120 PRINT AT 0.7:1їй041:" ";: BEE 
Р .1,40: NEXT i 

1130 LET нознозіп: RETURN 

1200 REM #++#REMOVE COUBLE++#¢ 
1210 LET 40-0: PRINT AT 6,11; PA 


1220 FOR і=1 TO 4: PRINT AT O 
1);W5í(íi1): LET С(11:8: NEXT i: R 
ETURN 

13098 БЕН +#+#£+#CLEAR LAST LINE s++ 
1310 PRINT AT 21,0;TRB 31;""; = 


13 


ETURN 

1400 ВЕН xxx JACEPODT +++ 

1410 FOR ізі TO % FOR Са ТО Jc 
° PRINT MT 2,.1140:" 71: NEXT С 
1420 FOR CSI TO іс: BEEP .1,1042 
2С: PRINT AT 3,1140,"42",(,: NEXT С 
1430 NEXT t: RETURN 

1500 REM *x*xxFLAHSH POSSIBLE HOLD: 
BHD СЕТ ІМКЕУ5%ж ++ 

1510 ГОН ixl TU 3: IF 111 548 THE 
М PRINT AT ili.rPíi!); FLASH 1, PAP 

ER 2; INK 7; OVER 1; "н"; 

1520 NEXT i: LET hosó 

15350 LET i€S8zINKEYS. IF ifs” THE 

М GO TO 21520 

1548 IF 18:01" AND 14:52" AND 
15137327 THEN 00 TO 157 

1856 LET 1:148Ь i$: PRINT AT 11,р 
(11: PAPER 2; INK 7; "RH"; 

1550 LET “б=т LET 10:11:11: BO TO 
TO 3: IF кі ЕВ THE 
CJ; PAPER 2;" " 
T rih=riF+hG: RETUR 


iJ 


zoco FEM I СЕЕЕН +++ 


1: PAPER 3;" 


2010 PRINT AT 5,1: 
2020 FOR 1-0 TO 4: PRINT AT 64 
10: PAPER 3;" "; PAPER 2;" 

"; PAPER 3,5 "; PAPER 7,5 “i PR 


PER "іо MEAT 1 

2030 PRINT AT 58,202, ҒЯҒЕЕ 2. 

; PRINT АТ 10.19; PAPER 3; 27 
2040 FOR ісе ТО 2: FRINT AT 5,1 
+241; PAPER б,” ";: NEXT i 

zoce PRINT AT 11.11; PAPER 5;' 


2068 FOR 12502 TO 2: PRINT HT 21.1 

Е-Е-1. PAPER =." "|: NEXT i 

2070 FOR i= TO 3: PRINT AT 12+: 

‚12; PAPER 5; "2: WEAT 4 

aeg FOR iz TO 3: FOR K=O TO 4+ 

i PRINT AT 1641,12-i4k; PAPER 

UE: МЕКЕ K: хоо 1 

PRINT ВТ TOTAL: O; 
J” 


5 
› 


Е F INT AT 8. і а: d vene mm ш 3 
POR 1212 TO S STEP -1 
PRINT E 21-i1,0;"7-";wuS$iiliu 
"rf te,8); 
PRINT AT г1-і, алама ші | 1 
Ж = CTS. 


IF 4613 THEN PRINT "Hep s 
МЕХТ 1: RETURN 

FEM +#44ADAPT VARIABLES+++ 
LET пї200141: IF wi>@ TREN L 


L4 C Ea م‎ ro ок É 


F^ Ca UL PE tae qure cin 
(53 (23: 03 te CO 03 ба - c 
ta. 


FG po Fo Fo == 1048-1113 pa її 
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ET Һь-1: LET wi=@ 


2320 FOR 1-1 ТО 3: LET htid=@: Р 


Ети AT 11,811): PAPER 25° "zr М 

T | 

2330 IF do THEN GO TO 2380 

2340 FOR 121 TO 4. IF C(1] 58 THE 

М GO TO 2370 

2350 LET C(í(i)sCc(íi)-1: IF cíi)»80 

THEN GO TO 2378 

2358 LET njznj*1: PRINT AT 7,4 (і 
іміз); 

2370 NEXT i: GO TO 239290 

2380 LET dc=dc-1l: IF ас=@ THEN Б 
0 SUB 1200 

2390 IF ja THEN PRINT AT @,11+jcC 
Ë оз LET 1С:516-2: ЇР jc=@ THEN 
LET jia=@ 

0400 IF но»ит THEN LET Ml =o 
2410 RETURN 

2500 БЕН жжҰұМОТ ENOUGH MONEY +++ 

2516 LET hb=1: GO SUB 1200 


£c 

2520 LET ja=@: PRINT HT 0,160;TRB 
Ic a 

2530 GÛ 505 1388: PRINT AT 21.3: 

(200 

PAPER 5; INSERT OR END"; 

2540 LET sS="INSERT (1)": LET t$ 
-55: LET CIS LET геро LET саб” 
GO SUB 1000 

2550 IF 18-59" OR іФе"р" THEN GO 
TO 2540 


20560 RETURN 

Z253 РЕМ -xHOLD FOSSIBLE**-* 

2618 СО SUB 1200: PRINT AT 21,2 

gu =; “INSERT, HOLD, PLAY DR 
р"; 

2628 GO SUB 1500: RETURN 

2700 REM **xxNO HOLD POSSIBLE+++ 
2718 GO SUB 13002: PRINT AT 21,5; 
PAPER 5: “INSERT, PLAY GR ЕНГ"; 

2720 LET 5ф2"777": LET із" 
LET Cim LET rz10: LET CTS 

О SUB 1806 


r. 


15 





2730 RETURN 

2300 REM #2 HAT TO DO WITH HINN 
ІМС5жғж 

2510 cO SUB 1500 

2520 IF hb THEN PRINT AT 21, 

: GO TO 2840 

2630 PRINT AT 21,4; PAPER 5; "ног 


284 а РБІМТ ; FAPER 5; "GAMBLE OR 

COLLECT"; 

2850 LET 5%="777": LET t$£s" | 
LET clad: LET (г-18: LET Esl: 6 
ü SUB 18000 

2560 БЕТИВМ 

2900 REH x**PLRY xxx 

20910 FOR ісі TO З: ІР Мі) THEN 

GO TO 2940 

29290 LET осіззУ (533: LET fi ZINI 

RND«x100)041: LET vtil)sfi: IF Fi<S 

THEN GO TO 2940 


Оп 


1 


2930 LET wví(r1=5S+t3(fiyx7y+*+(Fiyx1l10) +i 
fi>13) +(Fi>36)+(Ffi>49)+(Fiyx68)+! 
FF SOY 

2940 НЕХТ i 

2950 


FOR c= ТО 9: PRINT HT с, 2ге 
PRINT AT с г 


2960 FOR 1-1 TO 


+1.20; PAPER 
15: NEAT i: NEXT 


ru 


2970 FOR c=18 TO 7 STEP =i: PRIN 
T AT c,20; PAPER 1317 ";: PRINT ñ 
f 8-4, әй; PAPER P; У; 

2980 FOR 1-1 TO 15: NEXT i: NEXT 


1 
с 
2990 FOR ісі ТО 3: LET FEISS М 
EXT і 

3000 FOR i=@ ТО 70: FOR ісі TO 3 
3010 IF hij)zl THEN GO TO зава 


3020 IF riii THEN GO TO 3050 
34060 LET OCS) s0[jJ) 41: IF (11313 
THEN LET 01311241 

3040 IF (1318041543) AND Gj} 3¥ 1 j 
| THEN LET 113141: BEEP | 02,05) 
3050 PRINT AT Sao p 1111; PAPER Е; us 
Ht 33 2; 

3858 НЕХТ ij: NEXT i: RETURN 

37” FEM #4+TAKE CARE OF JOKERS + 


3110 LET JjJosU: FOR іші ТО 3: LET 
yz = {1 1 


3120 ЇР ¥+4 THEN LET ҒұзҰ; GO ТО 
130 LET jwsi- LET j02zj3041: IF C 
1 


>@ THEN GO ТО 3150 
140 PRINT AT 7,41(У!: PAPER 3; '' 
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x LET СОМ? 220: 
2120 NEXT 1: LET d 
Oo THEN LET dtziS: 

ЕВРЕБ 6 


гі 


daw 


LET ulzul-ci 


LET DJ 


“DOUBLE!” ; 


znj-i 
o= (fj =O) >. ТЕ d 
PRINT AT 6,11; 


3150 PETURN 

3200 РЕМ »-xxCOMPUTE UWINNINGS+4s 
3210 LET hu =S: зо TO (3220 AHD 1 
сафд'з- :З250 AND 10112 13220 AND , 
Q22! 4 13270 BHD 102321 

3220 LET Һу=ғУ 

3238 со TO зегсо 

СЕВО LET ISIS LET 16: 841: і. 
aa 1234051: IF it<@ THEN EET Ils 
3260 LET hvsv (itd: Se З Р О1 y Eat 
1 THEN LET һүлу (11) 

Serve FOR ізі TO З: LET Кізїуєвє tid 
2 gr Vtsi<S THEM LET 4113 Ену 
ЗеВд NEXT i: IF КЕ ОСК Cr OR ki 
Е! YE (3) THEN GO TO 3380 

зоба EF 4685121) THEN. LET замі» L 
ЕТ іссіз; GO SUB 1409 

3060 LET 41-0: LET we=2 

3310 FOR isi TO З: IF REG} 233 IM 
E 

3328 HET EE LET б 
Жэ ps P f БЕТ 
5330 LET P asd IF 
T 33 =u 


33428 IF ja AND wi 
ЕН LET иї1-18 
3350 IF do THEN 


ЭШЕ RETURN 
3402 FEM --xGHHELE 


34510 LET Өтті. LET 
T S telas LET 8 023) 
LET aí4) INT 
Зага LET пЗ=п3+1: 
RINT AT 21.18, 
3630 FOR ігі TO 
EE ©; 
T PEM 15+ 
3440 LET Carti: 
tf = 


З: 


ЇР 


3450 PRINT АТ є г, 
ER: Басс) БЕЕР 


3450 
БЕТ 
3470 LET 
ЇР di -250 
3475 FOR 
t:2eea 
23480 PRINT AT &if, 
ER O; “° wee BJ TO 
3490 FOR ісі TO 3: 
TAB 315°"; s NEXT i 


Y$: GO 
dt={24+RND 
THEN LET 


i $= 


+2 AND 
LET 


ез 198 ае" 
THEN 50 TO 3480 


S€ =1+ (Kk (1) sk (Р) 
uezrins,ktzi)! 
tisti THEN LE 


wi CID TH 
шісгзіші 
ROUTINE +++ 


gaíl)szsgsui: 
SENE 


LE 
ІЗжшіугі 


іші -2) 
GO Sus 1300: 
PRPER Є; 


P 

STOP" 

PRINT RT i.8; 
қз: NEX 


r»4 THEN LET 


ЗУ ег AU 


‚@03,1@+3=+г 
AND 


FAF 
18: 787" TREN 
Ta 3482 
)xQ.5xdtfT1.—- 
dt=250 
МЕХТ-4: ЖЕ d 
1),eír,zg); PAP 
3448 
PRINT RT 1,2, 


3500 LET gw=gwegiri-wi: LET wi =3 
ігі: RETURN 

35800 REM --«xEHD OF СЯМЕ +++ 

3610 CLS : PRINT : PRINT “AMOUNT 
OF HONEY": PRINT 

3620 PRINT " PUT IN: "; TAB 18; "s" 





;: LET xsni: GO SUB 3880 

3530 PRINT " GOT BACK: ”;TRB 18;" 
LET xzmo;4: GO SUB 3800 

3610 PRINT " MAX AT ONE TIME: $” 

;: LET x=mm74: GO SUB 3800 

3650 IF gw:zà THEN PRINT " WON Б 


Y GAMBLING: $";: LET х=98;4: GO 
SUB 3800 

3660 IF 9%ш:<0 THEN PRINT TET D 
Y GRAMBLING: $’; LET x=-gwrd: GO 


SUB 3300 
3670 PRINT : PRINT : PRINT "МОНЕ 
ER OF HOLDS: "; TAB 19;: LET xznh: 
GO SUB 3980 
3688 PRINT “NUMBER OF GAMBLES: ” 
тав 19;: LET x=ng: GO SUB 3900 
3530 PRINT “NUMBER ОҒ TURNS: “iTA 
в 15; LET x=nt: GO SUB 3988 
3700 RETURN 
35500 LET LzLEH STRS x-LEN STR I 
NT x 
се LET х -5Т8 35 s+!" 0" AND 1-5! 
(",Q0Q" AND ize? 
3820 FOR ісіЕМ х% ТО 5: PRINT 
">: NEXT i: PRINT x$: RETURN 
3900 FOR isLEN STR$ x TO 2: PRIN 
T " ”:: NEXT i: PRINT X: RETURN 
4000 REM +#+#4+NHAIN PROGRAMs++ 
4010 50 SUB 20200: REM SCREEN 
4020 50 SUB 23500: REM ADAPT 
4030 LET са-2өҮНЬ4-10Ш0.1141: GO 
Б (2560 AND са=11 +12600 AND са 
1412580 AND caz3)4i2700 AND ca 
l 
4040 PRINT AT 3 
cazíiSz"I" oF 
OR i$2"p'")42xí 
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4050 50 TO (48308 AND гса=@ +14100 
AND Са-411-14Е00 AND са-21-14700 
AND caza! 

4100 LET її1:0141: LET 1124: 60 

UE 1100: IF попи THEN LET mmsatmoao 

41180 со то 4050 

4206 LET inz-z. GO SUB 11090 

4210 20 SUB 2300: REH PLAY 

4230 GO SUB 3100: REH JOKERS 

4240 GO SUB 3280: REM WINNINGS 

4250 IF hil)lshi2)4hí3):0 THEN GO 
TO 42708 

4250 LET hbzQ: LET Шізез: GO TO 
[4298 AWD и1:01:-14020 AND ші «со! 

4270 LET Abeil: ТР Waiolw THEN GE 

то 4850 

4275 IF іншо THEN СО ТО 4020 

4280 "a НТ 3,318: TRE 31: Эй. 

RINT AT 513: РАРЕР 8; "you Los БТ" 
г BEEP ‚10: со ТО 1o20 

42908 PRINT HT 3,10; PRPER G; YOU 
WOM "Wii: FOR 1:1 TO wi: BEEP 
21,28: NEXT 1 

4300 IF шо<2 THEN LET hbzl 

4310 GO SUB 2500: REM GET INSTRU 

CT ION 

4320 LET caa=tfisg="H" OR 18 558") 

AND HOT 925452325. "a" OR i$2'"3'! 

+3243 жә” OM 18” 

4330 со TO (4218 AND са=@) +146500 
AND гса=11 +14500 AND са=21 +14400 
AND caza) 

4400 LET irn=wi: GO SUB 11090: GO 

то 4020 

4500 LET нь-1: GO SUB 3400: REH 

GRHBLE 

4518 IF wi:@ THEN GO TO 4298 

4520 GO 70 4250 

45600 LET wize: GO TO 4020 

47420 GO SUB 3520: REM END 


ий! 
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Parrot 


PARROT is a very simple competition game. Play it on a rainy day with a friend 
(especially after your friend has had a few beers!). 
At the start of the game, your computer impertinently asks you: 





N 
`. м 
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ARE YOU READY, PARROT? 


Yes, he is calling you a parrot! Press any key and the computer immediately 
displays a letter. You must enter the same letter as fast as you can. Since you 
copy each letter, you really are a parrot! The game is repeated for about 10 
seconds, and then the computer shows your score. 

How good are you as a parrot? Have a competition with your friends and 


try to win the title of ‘Super-Duper Parrot’. 


parrots!) 


: RERD x: READ 
р К.Ы WERT. i 
38: PARU 15,-18, 


1 
TORE : PLOT 100,98 


40 FOR 1:0 ТО 5 STEP „2 
E Ә5 1314: NEXT i 
455 DEF ЕМ tí)zINT ((655 
SEV44+E564PEER Z235734PEEK 
ЛЕВ) ` REM ENE since 
ЕЕЕ PRINT AT 14, “Are чо 
м, PafiDt7?": IF INKE y $<" 


б TO 110 
LET b=2S: LET tis 
=O 
=CHRS (3a4+b4RND1- LET 


140 PRINT AT 16,15; х5; 

150 LET t2zFN t £) < ТЕ 12-11» 

ден cO TO zog 

LET кес” “: PAUSE 10: ТЕ ТМ 
аф THEN GO TQ 148 

LET 05041 со TO 138 

PRINT AT 18,5; "your score 


t 
IEL 


J TM 


биеэ G СОНЯ ӘП 


mium e 
гп 
-— 
- 
т 


< 
zr p [T| EP — 


- FY 


LET t=INT (12-11): PRINT AT 
7. bam ; "51; seconds" 
INPUT “Play again (yeni? 


г 


tu 
A IHR FU e FU 
га й 


BU 
IOG 


1 
o Є 
би 


1 
1900 р 
15 


-48, 
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(My record is 19 — I teach 


Kentucky Derby 


Ladies and gentlemen, they are off! Red Arrow is off to a good яаг ... 


Blondish Boy is giving his jockey some trouble ... and there's the famous 
Spanish Lady, on the inside track. This is really first class excitement, and 
we’ve only just begun! Coming round the first bend . . . Mickey Finn has taken 


over the lead, hard-pressed by Speedy Gonzales .. . 

The Kentucky Derby is a horse-racing game. There are not as many horses 
іп our Kentucky Derby as there are іп the real race — in fact, there are only 
three — but they have to run 10 gruelling laps (with computer horse-racing 
anything is possible)! At the start of the game the odds are given for each 
horse. Now you can place your bets. As long as you have money you can bet 
again and again — these horses never get tired. 

After the RUN command we see: 


YOU CAN BET 

THE ODDS OF THE HORSES ARE 
HORSE 1: 10 to 1 

HORSE 2: 4 to 1 

HORSE 3: 20 to 1 


(odds may vary from race to race). 


YOU HAVE ... DOLLARS 
YOUR BET ON HORSE 115... 


When you have run out of money, your computer cheekily tells you: 
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YOU'RE LIVING ABOVE YOUR MEANS 
And if you are a little better off: 


YOU STILL HAVE ... DOLLARS 


Immediately after you enter all your bets the screen displays the racetrack, with 


horses at the starting gates. The odds and bets are displayed in the lower part 
of the screen and then you will see: 


START??? 
Press ENTER and they are off! 


I put my money on the bobtailed nag 
Somebody bet on the bay 


100 REM KENTUCKY DERBY 
180 GO SUB 54000 
200 REM lain Looe 


230 cO SUB 888 


25@ GO SUB 1300 

255 ВЕЕР ,5,5 n 

SEG LET vma=tv(Llev (elev (311 23 
270 FOR 4-1 TO З 

езе со SUB 500 

298 НЕХТ а 

see BEEP .005,-3 B 
318 IF finish«s3 THEN GO TO 262 
S15 PRINT AT tiwinner?,10; FLAS 
H 1: "THE WINNER” | 
З20 LET credit=creditdi (winner! 
зрішіппеєгі 

S25 FOR isl ТО 500: NEXT i 

3530 IF credit» THEN GO TO 2382 
340 STOP 

sap БЕМ one move*xxxxx*x**- 
505 LET p=” 

518 IF 4(41-1 THEN RETURN 
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see PRINT AT 11:41,х (4); S 

530 IF s iq} =1 THEN LET s grs 
GÛ TO тва 

540 LET х (41 =x (9) У (4) 

сес LET YIQ! =¥ (41 4+vupgeRNDs ivm- 
> гаї) 

зба IF siq! =2 THEN LET 1(4) -1(4 
у41: LET Piece ee со TO 700 

570 ТЕ íixhil:xíq)) AND іх (а) «хьЗ3 
» TREN co TO 570 

530 IF x (Q) «хтах THEN GO TO 7002 
5808 LET х4) =x (4) 42-xXmax 

See LET гі4іг 14141 

5610 PRINT ЯТ 1:91,0; г (q) 

520 IF ríq)«rounds THEN GO TO 7 
ар 

530 IF uiringr=ë THEN LET winner 
=4 

бай LET diqisl 

ese LET finishzsfinish-41l 

ББО cO TO ie 

буд IF x (q) « she THEM LET рф - үс 
LET síqi=1: со TO 700 

680 LET 5 (4)х2е: LET 119) ST 192-1 
| LET ps" 

2@@ PRINT AT 1(4),х(4), INK 4;:Р 
$ 

712 RETURN 

БРО REM init. RhOrsesexee eee eee 
818 LET PSP ae 

820 LET winner=@: LET finish=8 
830 FOR К=1 TO 3 

840 LET х (Кі 23 

850 LET rtk) =0 

6855 БЕТ РІК) = (INT (RHD ESI +1) 5 
858 LET vwv(kl=p ik)*dv+vmin 

870 LET 1(К1:54(К-1143 

880 LET аск) =0 

590 NEXT К 

1002 FEM odds ата inputxxxxxxx 
1010 LET ptot=a@ 

1020 FOR ісі TO 3 

1838 LET piilzíviil-vmin)swdv 
1040 LET ptot=ptatdep (1) 

1050 NEXT i 

1052 FOR ksi TO 3 

1054 L РІК) INT í(ptot;ptk1?) 
1055 HEXT k 
10520 CLs 


1970 PRINT AT 1,0;"x»sssxXXxXx*XXXx4* 
*X***XX**t****t£*" 


1080 PRINT ^" YOU CHN BET 
1085 PRINT "xs*ss**EXEdXXikxk 
*Xsxt£txkkEt] 

1090 PRINT 


1100 PRINT “the 0445 Of the hors 
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ес are: " 
1110 PRINT 
1120 FOR і=1 TO 3 


11029 PRINT "horse "14117: тірі); 
11 іс к i 

1135 NEXT i 

1140 PRINT 


1145 PRINT “you still have ";cre 
dit," dotlars 


11598 FOR ізі TO З 

1152 мэн г your bet оп horse 
To dept КР „а 

1154 LET reztzcredit-i (і) 

11556 IF rest: THEN PRINT "уси г 
€ Living above yaur means": GO T 
a 1159 

1159 LET credit= СГЄдЗ11-11(11: PRI 
NT AT LIU, OU still have ";cre 


dit;" dollars Š 
1160 NEXT i 
1200 RETURN 


к> 


1300 БЕН prepare the Field+++++ 

1910 CLOS 

1328 PRINT AT 16,6; "you Still ha 
ve ”сге21%;" dotlars 

1330 PRINT 

1348 PRINT " harsel hor 
сер қагеег2: 

1356 PRINT “-------------------- 
1360 PRINT "гаїе:",ТЯВ 12:р{1);Т 
HB 18:ргїЕ!.ТЯБ 56; P (3) 

1378 PRINT “bet s. YET ША 1 TM 
B ©; CUE) ;TRB 26; і 13 
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1380 FOR k=1 TO 3 

1385 PRINT AT t!k),18;"x" 

1400 PRINT AT tik!,Q0;rik) 

1440 PRINT ЯТ tik),x(k); INK k 
taa PRINT ЯТ ТСК 


“START TI?’ > - 

1459 ЕСЕР 5,0 

1450 RETURN 

SEET REM initialization 

5005 RANDOMIZE 

S810 DIM CEST: DIM ҮС: DIM xt3 
ї? DIM LECS): DIM 4031: DIM БІЗІ: 
DIM 113): DIM 5 633 

226 LET veins. LET dvei: LET 
upazz 

5030 LET roundssi8: LET xmax=Si 
5040 LET creditzioo 

5050 LET хҺ-18: LET хьнізхь-З3: LE 
T xhgsxh-1: LET Xh3zxb44 

50562 FOR ї:0 TO 7: READ pa: PORE 


USR "p'"43i1,;pB8: NEXT i 
50970 FOR izO TO 7: READ pa: POKE 
ЦЭВ "q'"4i,Pa: NEXT i 
52080 FOR ісшдӘ ТО 7: READ ра: PORE 


USR "г"і;ра: NEXT 3 
5090 FETURN 

5100 DATA BIN ОСОО000100.БІМ gagan 
111,ВІН О00000111.БІМ 10000100,BI 
М 8211111802, BIN Oll11100,BIN дідо 
FIFE, BIHN 10000182 

5110 DATA BIN ОС0000100,ВІМН SAFI 
111.БІМ @860011900,6IN 00111100,ВІ 
H 11111111,БІМ 11100100,BIH 9100 
peot, EIN 81182220 

Size DATA BIN ё8д0020201020,Б1Мм B@ae20 
111.БІМ @8@08@118,6IN 001111080.ВІ 
H 2001111200,БІН ё8018201800,81Мм 82120 
apip, SIN lü8880001 
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Rainbow Square Dance 


A two-dimensional cube? Impossible of course, but this game, played on the 
computer screen, is similar in many ways to Rubik’s Cube. 

You will see 25 colored squares arranged at random on a 5 x 5 board. The 
rows of squares on the board are numbered like this: 


on + W го 


B 1830 


That is, the horizontal rows are numbered 1 to 5, and the vertical rows 6, 7, 8, 
9, and 10. The computer will ask you to enter the number of a row, and the 
number of steps you want to move the squares in that row. In a horizontal row, 
the squares move to the right when you enter a positive number, and to the left 
when you enter a negative number. Similarly, in a vertical row they move 
upwards for a positive number and downwards for a negative number. As a 
square disappears off one end of a row it reappears at the other. 

The object of all this? You must rearrange the squares to form five hori- 
zontal stripes of one color each. Sounds simple . . . but is it? 
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S@ LET k=1+INT (10<*RMND1 
зо GO SUB 400 
120 NEXT i 
125 CLs 
130 FEM begin game 
140 FOR ч-г TO 6 
150 LET р=їу-21 4-1 
160 PRINT AT íps2).5;u-1 
170 FOR isl TO 4 
; INK аг 


180 За ол Pti? s? 2.4 
Lh ¿É š > ЫҚ а12,М); ши INE. 

а 13.4); "MES"; INK з:4,5: : ; НЫ 
ЕЛ INK aS, 4: AN 


190 NEXT i 
200 NEXT ч 
210 PRINT AT 21,7;" 6 7 8 


= e 
220 INPUT AT 0,09); "Columnnumber 


` ` M ^ | ч 

МУ к. a o Ell, 

SAO eset. TEM 
SS Ві ج‎ МИ 





(8..9!: PE: RT. 23 O; Number OF st 


IF k =o THEN LET к=1@ 
IF th 3 OR кута) OR (5-4 O 


>4) THEN GO TO 22Q 


IF 5:0 THEN LET S2545 
FOR i=1 TU Š 

со SUB 400 

NEXT 1 

со TO 139 

IF КУЕ THEN GO ТО 470 


FOR хаб TO 2 STEP = 
LET atx,k41)-s8[(X-1,k41) 
NEXT X 

LET а(1,К-1)с:4(6,К41) 
EETURN 

FOR ч-г TO © 

LET aik-9S,u-1l)zaík-S9&5,ui! 
NEXT ч 

LET aík-5,8!)sa8 (K 
РЕТИВН 


т 


= 4) 
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Oui Vive 


To be ‘on the qui vive’ means to be alert and watchful. This game is called QUI 
VIVE because to play it successfully you must always be on the look out for 
winning situations. The rules are very simple but the program needed to imple- 
ment them is anything but. In fact, it presents quite a challenge to a games 
programmer. 

QUI VIVE was invented by Eugene de Wolf and is played on a square 5 x 5 
board. Each player has five checkers and must try to arrange them into one of 
seven symmetrical patterns. These are: 


a horizontal line, e.g. Єз ж”. % 
. TE Ж > 
d 10127 
a vertical line, e.g. А e | . ° 
ЧР cp 
DNE TT 


со 
— 


з ° 5 {© 
a diagonal, e.g. š ra 
y a | 
eo - 
T 
0--ө 
а rectangular cross, e.g. . l 
. © ө 
a skew cross, e.g. I b T - 
гч 
® ° o 
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a horizontal wing, e.g. . © -> ө. 


AC м 
a vertical wing, е.р. š ° e p 


At the start of the game the board is empty and you and the computer take 
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turns to place checkers on it. The positions on the board are labelled like this: 


l T D- 15 
16 тої 197 29 


21 43 23 24 213 


@ ® © @ © 


@ @ @ @ @ 


To place a checker at any particular position simply enter the appropriate 
coordinates: for instance for position 21 enter Al, for position 12, B3, etc. 
Your checkers are indicated by P and the computer’s by C. 

If all ten checkers have been placed on the board and no one has won, the 
game continues, with you and the computer taking turns to move checkers to 
try and gain a winning position. To move one of your checkers you enter the 
coordinates first of its present position and then of the position to which you 
wish to move it. 

You must keep a look out for chances to make a winning pattern yourself, 
at the same time making sure that you are blocking any winning moves by the 
computer. 
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The program is one of the most interesting in this book. It contains a list 
of not only all 42 possible winning patterns but also over 100 particularly 
strong situations from which a player has a chance of making either one of two 
winning patterns. During the game the computer monitors this list in the light 
of the situation on the board and assesses what its best move is. 

We advise you to play this game on an ordinary checkerboard against one 
of your friends before you take on the computer. You will soon see what a 
superb game it is. 


10 REM +40UITVIVEss 

eO DIM 2 (542,51: DIM 0 (423 

38 DIM di185,2): DIM F(16,9) 

Ае DIM eí(5,2): DIM b(25): DIM 
с (253 


50 cO TO заре 

100 REM #4COMPUTE POINTS OF fi. 
sl 

118 LET Dis. LET p2zD. LET біз 
0. LET c230 

120 LET disbifin,1)}: LET d2sbt( 
F ch; 211 

139 IF disi OR 42:31 THEN LET pi 


140 IF 41-10 OR 48-10 THEN LET 


cisio 

158 LET BIST CRISIS LET 42:51 
f (n,4&) 3 

160 IF 41-1 ОН 42-1 THEN LET p2 
21 

178 IF 41-18 OR 42:10 THEN LET 
сесій 

130 LET gvszsbirFiín,5))4bífrín,86114 
b: tf kB ҮЗ? 

190 LET р-чЧучр1-рг 01408 

200 IF зу-3й AND (С1:0 OR c2e=2 
THEN LET р=р-10 

10 IF gv=S AND (Е1:0 OR paz: 


220 RETURN 
300 REM ++COMPLUTE DOUBLE FIGURE 


LET tc=5: LET їп=1 
FOR isl TO 5: LET cts tdif,4 


OR i=l ТО 5: LET sssidif,Z2 
F cí&) 21 THEN GO TO aso 
ET ПУП SS: LET tnstn4i 
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co TO 828 
See LET fíin,tc)s$: LET 46141 
LET cts) =й 
S70 NEXT і 
"889 FOR ізі ТО S: LET sas (d (T, 1 
32) 
„ЗӘЙ TF £ ET 1 THEN LET fim THis 
5: LER thelhlLl: LET Х (58120 
SOG НЕХТ i: RETURN 
1100 БЕМ +#<DETERMINE GUNERS ОҒ С 
! 105665 
Ө LET omzs-1: LET URNS 
О FOR zzi TO 42 
а LET ребі5 (5,11) 4bís (5,2) ) +h 
£.Gli-biziz,á!ll4bizis,B5ili 
д IF рай OR p=10 OR p=20 QR fF 
ae LET сі5)з10: GO TO 1240 
ТЕ »40 THEN GO TO 1190 


GO SUB іше 
cu SUB izga 
LET wm=1: LET 8242: GO TO i 


IF р>г0 OR p:3 OR р-11 OR P 
THEN LET cisis@: GO ТО 12468 


5 6) гун 


[LI TUI E pe e po p pe pe Л pe rt рә p p 
ra 


EE USED EE CE UT EH Bo 


E Ex e e ET E E LEE TU E E кеке и کم‎ ER RS = 


O LET 2021531:1 
Q IF р-4 AND omz-1 THEN GO ЗИ 
258 
220 IF р-14 THEN GO SUB 1388 
230 IF ps5 THEN LET 5:42 
2420 НЕХТ с: RETURN 
SSG РЕМ +4DETERMINE OGBLIGHTüOR* 


MOVE 10см) ++ 

1260 FOR i=1 ТО 5 

1270 IF Ь(5(5,111)-0 THEN LET omz 
5 (5,1) 

1280 NEXT 1: RETURN 

1306 REM *xxDETERHMINE PENDED CHEC 


кури 
L+ ТЕ З 
i 1115218 THEN GO TO 


1330 FOR і-ші 

1342 IF 515, 
(1,231 = 

1350 NEXT j 

1350 NEXT i 

1370 RETURN 

1488 БЕН +4DETERMINE INTERESTING 
f Ü. ey SEG 

1418 ГЕТ nesar LET tps. LET fel 

1420 FOR 1-1 ТО 16 

1490 LET TCi pore 

1440 LET FI ,81-0 

1450 HEXT i 

14620 FOR Ғ-1 TO 108 


1,4% THEM LET € 
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сі 


О TO 16 
14830 со SUB 
15020 GO SLE 
1518 AF ped 
со TO 


Ср е Р * 


ізавг 


ee 
заа 
132 
ов 


Fold THEN 


1540 


1528 IF 0121 OR Paf tn,9) 
Û TO 15668 

1530 LET f if, Si 2108 

5 LET fín,9)« 


LET n=l 
FOR i=l 
z Fd 


550 bag 


Бі 
2 HEXT i 
NEXT f 


1610 RETURN 
1702 БЕН «T 
1210 IF incl 
Area LET 106 
2720 FOR r= 
17480 IF Ftn.8) 
1750 со SUB 


F = C 
FP +m 
=i. 
XT fi 
-0 
> 
tü c 


Cn enm eco JOO =) dd 
Cd Fore fag р 
CJ 14 C4 (73 13 E C 17 


k= |= Ede de 1 pe pes e 


=ë 


Fin, Bi 


«Пе 


ši =ë OR 


RERT 
THEN 
LET 
TO 20 
=ë THEN 
ісе 

ТНЕМ 
LET 
LET 


ET 


МОЧЕ + + 
nzzüe 


GO 


GG 
nz 


THEN 
T HEN 


THEN 
THEN 


THEN 
THEN 


21 


г 
2 


GO TO 
RETURN 


THEN GO 


f 1,9) 


H C =P : 


он "m 


RETURN 


LET Gasol 
ОВ cils@ OR a2-20 T 


LET ft 
THEN 


f 


Т 


=1@ TH 


GO TO 1860 


TO 15688 


Tü 
шПЕ-1 


1788 
LET 


aeg 
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1340 IF mczmp AND naini THEN БЕТ 
LIEN 
15850 IF mczmp ЯНГ nzsni AND ЕНГ: 
THEM RETURN 

LET mpenc: LET пізпе 

IET сей: LET tep 

RETURN 

БЕМ +4PLAYER MOVE++ 

PRINT AT 17,6: "NOW IT’S You 
ВМ: PRINT AT 13,0; TRB 222 
PRINT AT Р2,0;ТАВ 31;""; 

IF pe<S THEN GO TO 1960 
INPUT "ШНІСН CHECKER DO YOU 

TE: 22:5Н1..ЁЭЗ: "x£ 
=O SUB 2030: LET tzx: IF np 

суі THEN BEEP 1,20: GO T 


ua un er co n ub 


-A вэ a UD -] m 
Іш rr БЕ 2 (74 tua t 


ын Бэрх LU Re E p pe pe wa 
m 


r+ 


hao 


aes жала” ТЕ 


INT AT 19,3; "YOU ТАКЕ CHE 


SR 
ROM: СВ 
NPLIT "HERE CO YOU PLACE 3 
ECKER? ALa ES: ";х% 

a SUB 22030: LET гэх: IF np 
ri<¢:@ THEN BEEP 1,20: GO T 


E CHE Гр Сз 
C COH TI Cut 
ағ Є) 


RINT 24% 22,2; "OU PLACE СН 
R ON : "ухе 

IF pcz5 THEN LET btt) =0 

ЇР рс:5 THEN LET pcspc4i 
LET Sirei: GO SUB 4890 
REETLIRN 

FEM жжІМРОТЖжЖ 

LET ӘРЕ: LET x=: IF LEN 
THEN GO TO 2898 
2050 LET cosCODE x$(1): IF co»36 
THEN LET x5$ii)zCHR$  (С0-38) 
z060 LET is$zx$!il)!: LET ds=x$ lei 
2678 IF ся" OR L$»"E" OR dee" 
i" OR d$:' 5" THEN GO TO 2090 
gocce LET zzcODE 015-855» СА. 4%-35: 
RETURH 
2030 LET прое RETURN 

gzüg REH S COMPUTER MOVES 


2210 BEEP 1,38: ТЕ cc:5 THEN LET 
126641: LET cczcCcC41: 80 TO 2270 

z220 PRINT AT 19,4; "I ТАКЕ CHECK 

ER FROM: “;CHRS (644t-INT ((1-11 
751951;5-ІМТ ((t-1) /5) 

2230 LET bit) =0 

2240 FOR с=1 TO S 

2250 IF &íc,l1)zt THEN LET tec: L 

ET себ 

2260 NEXT c 

2270 PRINT АТ 20.4:"І PLACE CHEC 

KER OM : “i CHRS tee SINT [ír —11 
FSF FSI; S=INT ((r-1) 75) 


Сау FU Сэ 2 ТЇ ТИТ ТИЛЕ ТЛ {ы PU 


ч баа Ca Ca C Coma ooo: 
р 
Жил ш 


Lg Го Р ПО ПО e m e c 
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т” Im 


2290 LET biri=2@: LET €(t,1)sfr 
2298 со SUB 408809 

ш2020 RETURN 

30920 REH #4HAIN PROGRAMS+ 

3005 LET dsi: LET ӛзі: LET WBs-ł 
3012 50 SUB 4100: PRINT AT 17,12 
› “PLEASE WAIT” 

задо со SUB 58228. GO SUB gaga 
3030 LET cczà: LET pc=@: PRINT A 
T 32776; BB Sii - 

3040 INPUT "DO YOU WYANT TO BEGIN 
7?" TAB З2:"Ү OR N: ";а% 


3050 IF g$: N° OR афа"п" THEN LE 
Т (213: GU ТО 2279 

3060 IF agG="¥" OR a£z'"y" THEN GO 
TO 3298 

3055 cO TO 3840 

зоте 


FOR isi TO 5: LET eti,2) =a: 
1 


2.1 

@ 50 SUB 1108: IF р-5 THEN 60 
TO задо 

3090 PRINT HT 17,6," NOU IT’S МУ 
TURN! ": PRINT AT 19,0;THB 31," 
": PRINT RT 20,0;TRHB 18; “PLEASE 
WAIT’; TRB 31,"" 

3100 IF wmi>+1 THEN GO SUB 1480 
3110 LET mp=@8: LET ni=@: LET r= 
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t: 


3130 
ET e 
3140 


2 


r 


t 


керег 


F 


3120 LET bf=1: LET ef=25 


IF om<>-1 THEN LET bfsom: L 
=a ü 

FOR dzbf TO ef 

IF bidi<:@ THEN GO TO 3268 
LET Bd 10 

IF cciS THEN GO SUB 1700. с 


3156 

3170 

31508 

о TO 

31868 зі TO З 

3209 IF еіс,г) THEN GO TO 3240 
2210 LET bseiít,ll: LET bib] S0 
3220 GO SUB 1780 

Je 30 LET bib) 510 

3240 NEXT c 

2520 LET bid) 

3850 НЕХТ d 

S278 со SUB 2289 

3200 IF wh=1 THEN GO ТО 3410 
гай cO SUB 18388 

3300 GO TO зата 

3400 PRINT AT 21,12; PAPER 68: YO 
и ит!” GO TO 3428 

3410 PRINT AT 21,13; PAPER 5:71 


BEEP 2,25: STOP 
FEM эжСІЗРІНУ CHECKERS++ 
FOR 1-0 ТО 4: FOR ісі TO 5 


3 LET h=541+ 


iF b (h; =0 THEN PRINT AT 4+2 


11 


1840 TF bib} аа. THEN PRINT RT 4-2 
#1,9¢2¢j; PAPER 6," P" 
4250 IF bibl clo THEN PRINT AT 4+ 


oti 
4060 
4676 
4250 
4100 
4118 
$+" 

4120 
4130 
4140 


2 
4150 
4150 


94235; PAPER 85:98": 


NEXT j: NEXT i: “RETURN 
PRINT AF 14,11: SM В С D Є" 
RETURN 

REM ##CISPLAY BORRDs+ 

PRINT AT 1.8; "444 QUIVIVE + 


FOR 1-0 TO 5 


PLOT 84.147-16%і: DRAW 80,0 
PLOT 844+1641,147: DRAN @,-5 


NEXT i 
FOR 1-1 2: S: PRINT AT 14-2 


41,21:1:: МЕХ 


PRINT aT. 14, i1; A 8 Є D E" 
RETURN 

REM +##INIT SINGLE FIGURES++ 
FOR i=1 TO 42: READ х 

POR gsi TO 5 

LET sti, j} CODE x$(j) -64 
НЕХТ j: NEXT i: RETURN 

REM WINGS AlN: <) 
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! DATA "UGMSY" 


З GO GO «343 


DATA "AGMIE", 
DRTR 
DATA "EIMSY", 


REM TIMES LX) 
CATA "RHCGKM' 


CATA "FLHPE"'",' 
DATA 


REM PLUS +! 
DATA “BFGHL” 


"демарш" 


DATA "GKLMO"," 
DATA "LPORU"," 


REM DIAGONALS 
DATA "ремзу"," 
REM COLUMNS 1 
CATA "АРКРО" 

CATA 
REM ROWS ií-! 
CATA "RBCDE 


CATA "РОБІТО 


"RMOLLDU"," 


"DINSX"," 


» "PLANT", 
PERNE » 
"BHNRU", 
'DHLRX",' 


,UBDHLN' 
'GIMOS"," 


LNRUx"' 


,"CGHIM" 
HLMNR" , 
,"NRST* 


MOORS" 


(им) 
'EIMQU' 


1) 
"BGOLU", 


EJOTY" 


" ,"FGHIJ", 
"духу" 


"KGCIO 
"KOUSO 
"CIOS 


СЕКЕНЈ 


"СЕІМО 


НАМЕТ 


: “МО5ЗЫҮү Y 


“рнточ 
"THNOS 


"СНМЕМ 


"KLMNO 


FEM xINIT DOUBLE FIGURES++ 


FOR 1:0 TO 107 


FOR ізі кы фе 
LET dii 

LET dii 

NEXT J: NEXT i 
RETURN 

DATA 


SIEP 12: 


REA 


"171:18В1С1Е1М101Рг>г2е2 
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CATA “282:2:3720474:4-47484 
DATA "A4PSZBSDSUI56986«56CO6E6M7 
DATA “ТОСТЇТОТРЗоЗБВЕрзэїӨсӨЕЗ 
DATA A BE: Kh: ШЕ 2; 8; 0; ¿e ma 
DATA “sG=I=0:F +H: UTGPKTPSFE 
DATA “AGAIARKAMNAORPBHBIBNCIC 
DATA “DJUDLDNEKEMNEOQFRFUGSGLA 
DATA "IRIXJSUXKTEXLRL'YMSMHMY 


STM 


The nature of memory is certainly one of the most interesting topics in psychol- 
ogy. To remember something has been defined as ‘to show in present responses 
some signs of earlier learned responses.” Why, though, do we remember some 
things and forget others? We may recognize someone we haven't seen in years, 
or call to mind a tune having heard only a few notes of it, but find it very 
difficult to remember, for instance, a telephone number. There are in fact two 
distinct types of memory: short term memory (STM) and long term memory 
(LTM). If you want to find out more about this intriguing topic we recommend 
that you read 'Introduction to Psychology’ by Hilgard & Atkinson. 

This game tests your short term memory. Play it with vour friends and 
family and see who can remember most. You will see this ‘menu’ on the screen: 


сэлгэж 

2 Ee ч bd ج‎ w 

T М ~ ^ маз 5 -.2 ` 2 Ч 
Ri хээ сл олон 
GNATT NM 

= UND 
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DO YOU WANT TO PLAY WITH 
1. LETTERS? 

2. NUMBERS? 

3. 0 AND 1? 

4. OR STOP? 


Now you make your choice by entering 1, 2, 3 or 4. Say you entered 1 to play 
with letters. A letter will now appear on the screen but only for a very short 
time. You have to enter that letter. The computer will then show you two 
letters which you have to enter, then three, and so on. Obviously, as the 
number of letters increases, remembering them all becomes more difficult. 
What is the longest string of characters you can remember? Can you beat our 


record of eight? 


S REM STM 
18 CLS : PRINT "DO YOU VANT TC 
PLY With: * 
28 PRINT " 1. LETTERS?" 
30 PRINT " г. NUMBERS?" 
40 PRINT " 2. 0 AND 17?" 
50 PRINT " 4. OR STOP?" 
SS PRINT : PRINT 
БОС LET аф-ТЧКЕҮЖ 4: IF аж: ов 
ag:"4" THEN GO ТО Ба 
78 PAUSE 58: LET x=sVAL аж: GO 
ТО ig80-xx 
100 LET 3226: LET bz97: GO TO 3 
ze 


200 LET a= 


502408 
^ 
m 
-4 
ГУ 


HEN GO 


э! C 
(qi 
з ібн UI 
ы 
T 
С. 
-4 


10: LET b=48: GO TO 3 


308 LET а-а: LET Ь=48: PAUSE 1 
5 DEF FN tii =ІМТ 1(65536%РЕЕК 
7&4255sPEER 23673+PEEK 23672 


seconds since Start 


18: LET ag="": FOR із 


c: LET bS=CHRS$ INT (b+RND +e 
RINT AT 10,1:" "455: LET ав 
b 


15: NEXT i: PRINT AT 
"ANSWER: “; 6$: IF b$= 


та зай 


PRINT “WRONG, YOUR 
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SCORE 15: '";c-1: PRINT "IT QAS ~ 
as; ; NOT ";b5 
98D LET tesFM ti). PRINT "TIME: 


“PLAY AGAIN (У/М17";аф: 
М" THEN GO TO 10 
255 cO TO 400 


INT Е%Р-%1);" SECONDS": INPUT 


IF a$-" 


SID LET czC41: LET ТЄзРМ 11): I 


F 12-11>-:40 THEN PRINT 


PRINT " 


YOUR SCORE IS: ";c-1: GO TO 382 


385 GO TO 340 
аза STOF 
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One to Five 


This exasperating game, which we saw first on a CASIO calculator, takes quite 
some logical reasoning to solve. It is played on a board with nine positions set 
out like this: 


1 2 3 
4 5 ó 
7 8 9 


A horizontal and a vertical line drawn through any one position will cross five 
positions in all. For instance lines drawn through position 4 will also cross 


positions 1, 5, 6, and 7. 





The positions on the board are occupied by a random pattern of digits between 
0 and 5. If you enter one of the positions (using the key shown on the screen) 
the digit on that position, and all the digits on the horizontal and vertical lines 
going through that position, are increased by 1 (except 5 which becomes 0). For 
instance if we had 


2 2 4 

1 5 2 

1 5 4 
and entered 4, the board would change to 

3 2 4 

2 O 3 

2 5 4 


The puzzle is solved when the board looks like this: 


0 0 0 
0 0 0 
0 0 0 
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REM ONE TO FIVE 


120 DIM а13,3) 

iGo LET C=" 123455783" 

108 PRINT AT 8,6; "SELECT"; TPB 1 
6: “BOARD” 

gan" PRINT HT 18,6; "----- “3188 1 

с FOR 1-1 TO 3 

185 LET 12-142: LET i3sí(i-1)sx3 
290 PRINT ЯТ 1245,85:71":1341:” 
E "атка 1 Teo 15271 
125 PRINT AT 12410, ж 
но 25; 7" | pe 

140 NEXT i 

T PRINT AT 15,5)" ----- "3 T MB 
160 FOR а=1 TO 10 

170 LET izIHT :RND*x9)41: GO SUE 
486 

180 NEXT а 

108 LET дей: LET 16 

= LET 1 -1МКЕҮЖ 

САҒ сфе" за со TO 200 

сес FOR ізі TO S 

23@ IF t#$=c#$iil THEN GO TO 262 
240 NEXT i 

250 со TO 228 

2508 LET m=m+i1 

ето со SUB 4620 

236 IF 1:3 THEN GO TO 200 

298 PRINT FLASA 1; "YOU DID ІТ" 
"- PRINT + PRINT "IN ";m;" Mov 
3198 STOP 

428 LET X2INT (423 <1) 433 $1 

410 LET gzi-3Sxix-1) 

420 LET aíx,u)zaíx,gy)-1 

439: FOR ізі TO 3 

440 LET aí(x,i)sB(X,i1)J)41 

456 LET 8í(i,u)a8(i,9)41 

450 NEXT i 

470 LET ts 

439 FOR ісі TO d 

490 FOR і=1 TO 3 

200 IF Еті, J SO: THEN LET 8%, 3) 
Sie IF ахі, 3: 0 THEN LET t=t+1 
SEE PRINT АТ 115 11-1122,165 (1-1 
їъг:а11 1,434 

530 NEXT j 

540 NEXT 1 

552 RETURN 
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Escher 


The work of the Dutch graphic artist M.C. Escher (1902- 1972), based as it is 
on symmetry and mathematical forms, appeals particularly to computer 


programmers. 
Now with the help of the computer you can produce your own patterns 


based on the same principles used by Escher. 
Consider the following pattern: 





It is based on a mosaic in the Alhambra palace in Spain. If you look closely 
you can see that all the tiles are the same shape and that they are arranged so 
that the “inverse video' of the white tiles shows the same pattern rotated 
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through 90 degrees. Escher studied such patterns and invented a game based on 
them. He devised a patterned tile such as 


iS 


which he rotated through four positions 


Sis 8/2 к\н = 


and arranged to form a continuous pattern. 


PS iT PI 
ЗЛОГО 
JOWOL 
JOK 


ае тее 
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This program does something very similar. After you have filled a ‘basic’ 
square with symbols the computer rotates and shifts it to fill the screen with 
your own ‘Escher’. 

After the RUN command the screen shows 


You have to fill the basic 

square with 16 rows of 16 

characters. 

Only 1 (ink) and O (empty) are allowed! 


The computer then takes you row by row through your square and you have to 
fill each row with 16 16 and Os in any pattern you like. When all the rows are 
filled, the computer is ‘busy’ for a while, but then after a beep you can arrange 
your basic square by using the cursor keys. 


Just try it, and you will be amazed at the wonderful patterns you can 
create. 


10 REM ESCHER GRME | 1 
1@@ DIM a$(16,16): DIM ь5(16,16 
} 
118 DEF FN cil#)=12384VAL 145411 + 
64 жоны i5$ig!432xURL LS (3) жібуі. 
ііі ӘНІ L$i5) 44 URL і% (61 +2 
ама iki?) +0яі 1508) 
120 LET cb=144 
20e БЕН input character 
212 PRINT “You Fave tO fit. the 


basic” 

020 PRINT "square with 16 rows 
об eet PRINT “characters.” 

238 PRINT “Only 1 (Cink) and @ i 
emety: are allowed!" 

240 PRINT " 

250 FOR i=l TO 16 ы 

260 INPUT ("гош ";1);а%(1) 

27G PRINT TAB 8:88(11 

2080 NEXT i 

заб REN generat є characters 
310 FOR ь-144 TO 159 STEP 4 

326 FOR 1-0 22, 7 ) 
2-30 РОКЕ USR CHRS ІБ) зі ,ЕМ clas 
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(131. 


TO 671 


340 POKE USR CHRS í 
афі131,9 ТО 1! 
350 PÓKE USR CHAR i 
akii+S, TO 511) 


ми 


a$(14+9,.5 TO 1 


37 
зва 
398 
480 
410 
420 
430 
44.0 
450 
4608 
470 
480 
50е 
510 
ee 
30 


зай 


байы 


! 
sd 


k 


$ 145 


R$ 


NEXT i 
REH rotate 


зва POKE USR CHR$ í 


FOR isi ТО 26 
FOR ісі TO 18 
LET b5(1,4)-28581J,17-1i) 


NEXT j 
NEXT i 


REH сорч y 


FOR 121 TO 


ofi 
6 


LET a$fil=b$ Uk) 


ЧЕХТ і 
NEXT Б 
REM print 
PRINT ‘You 


BEEP .5,2: CLS 
LET 30-10: LET €o=is 


PRINT AT го, 
a HT го+1, со; CHR$ 146;С 


со; 


550 LET ї$=ІЧКЕҮ$ 
LET rjziüxsit£z"5S")420sxit£z-" 
B"l4«30sit$z"7") 4404 (t$="8") 
580 IF rj=@ THEN GO ТО 560 
590 GO SUB 69@¢r j 


570 


600 PRINT AT ro, 


ich +1i 
616 PRINT AT гоз1,сс; СНВ% (ch+e 


— 


628 

төд 
rel: 

тіс 


£19): 


тга 
221 1 
738 


£29): 


; CHR ich+3) 


GO TO 560 


LET chzi48: 


RETURN 


RETURN 


ca, 


LET 
LET 
LET 
LET 


Ь+1) +i ,ЁМ ci 
b+2) +i FH СЇ 
b+31 +i ЕМ ci 


characters 


ginal array 


characters 
Can 


Start now" 


CHR$ 144; CHR 


CHRS ch; CHRS 


С02:00-24(С0 
го=го+2# iro 
rosro-2siíra 
cazcosa2xí(ca 
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Genius at Work 


Play this simple game to find out how good you are at thinking mathemat- 
ically. The computer displays seven numbers and a larger ‘target’ number. You 
must pick two of the numbers and one of the four simple mathematical 
functions: 


addition + 
subtraction — 
multiplication x 
division — 


The numbers you have chosen will be manipulated in this way. For instance, if 
you entered 7 + 18, the computer calculates 7 + 18 = 25. The numbers 7 and 
18 are then replaced in the initial list by 25. You now choose again. Your aim is 
to end up with a number in your list which is equal, or at least very close to, 
the target number. 

The character of this game is simplicity, so the whole family can play. Now 
you can find out if there is a genius in your family! 


10 REM GENIUS AT WORK 
2@ RANDOMIZE 
oe L t =ë 
42 LET x=@ 
50 LET гад 
БӘ DIM dt?) 
о со то 10606 
1206 НЕН 113 ts 
1109 CL 
128 FOR {SF TO 7 
130 LET d (i) SINT (RND «180-41: 
146 IF RND:.,25 THEN LET dil =25 
*IHT :RND*4-11 


160 LET f=INT iRNDx900499) 


170 RETURN 
200 REM display 
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210 CLS 
AT WORK 
220 PRINT HT 2, 
CH THIS NUMBER 
230 PRINT AT 4, 
E NUMBERS: " 
24@ FOR 1-1 TO 
„250 ЯГ 411143 


260 NEXT i 


PRINT 
Regii" 


Ux GENIUS 
dL ТО APPROA 
а; "YOU HAVE THES 


- 
@ THEN PRINT díi!; 


278 PRINT AT 20,5; "EVERY TIME U 
SE TWO” 

236 RETURN 

400 REM input 

410 INPUT “YES PLERSE? "; fs 

420 PRINT AT 8,5: FS; 

430 FOR n=2 TO LEN f$ 

440 IF fF$£$in)i:"Q'" THEN GO TO 470 
450 NEXT п 

450 со TO 48080 

470 LET асыны 42 TO n-1i! 

4508 LET bzUHL ?5$in-4l - ) 

480 IF URL Їйл > INT UAL FS THEN 
со TO 488 

БӨ RETURN 

pad БЕН invalid Numbers 

510 PRINT AT 18.5; "YOU USED ОБО 


HG HUHMBERÓS' 
вай 
IVES 
63e 
тав 
тів 
URL Fe 
720 LET x=5-8B5 
7380 IF х‹@ THEN 
"ФО IF хаб TREN 
FLASH 1, 
758 LET t=t+x 
тво 
хі" POINTS" 
770 RETURN 
822 REM end 
810 PRINT 

56: CU POINTS 
PRINT AT 


INPLT 
IF таразы 
STOP 

REM main 
LET Тэг44 
GO SUB 180 
GO SUB гаа 
зо SUB 4800 
REH check 


HO POINTS” 
RETURN 
REM correct 


4. 


ОМ 726; 


PRINT AT 11, 


РВЇМТ AT 10,5 


PRINT AT 128, 


RT 19, 
2а, 


“AGAIN 
THEN GO TO 


S; THIS ROUND С 


numbers 
"YOU HAVE: 


(Р тусыг FS) 
LET хай 
PRINT HT 11,19; 


“WELL DONE" 


S; "THIS MAKES 


р 
5; 


NOU YOU 
мам * 3 


HH Hi E 


FU ROGU 


eux 


(y or пі? 
таваа: 


Program 
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1160 


FOR 121 TO 7 

IF 4(1)-а THEN GO TO 1080 
NEXT i 

GO TO 1200 

LET dirs 

FOR 1-1 ТО 7 

IF díi)zb THEN GO ТО 1140 
NEXT i 

GO TO 1200 

LET diiizUHL f$ 

PRINT "="; UAL f$ 

PRINT 


INPUT "DO YOU WANT TO KEEP 


iT THIS WAY (Ч or n)? “;2% 
I 


1178 
1188 
1282 
1210 
i220 
13006 
1310 


F z$="u" THEN GO TO 1300 
зо TO 1220 
GO SUB 580 
GO SUB зра 
GO TO 1080 
со SUB 700 
50 TO 1210 
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Shakespearian Shuffle 


Shakespeare, one of the world’s greatest writers, and chess, the king of games, 
are combined in this unusual puzzle. 
Letters are arranged on a chessboard like this: 





A chesspiece, the knight, then moves around the board as it would in a normal 
game of chess. As it jumps from one square to another, the letters or symbols 
on the squares are exchanged. In this way the text on the board is jumbled up. 
The computer will ask you 


LEVEL 1-100: 


and you enter the number of moves you want the knight to make. Obviously, 
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the higher this number the more mixed up the board becomes. 

You will be shown the board after the knight has made his moves. Your 
task is to unscramble the text by moving the knight back around the board. 
Enter a number between 1 and 8 to move the knight, as shown. 





З REM SHAKESPERRIAN 5 
10 DIM xí(8!: DIM ЧІВ) МНЕ 
20 RANDOMIZE 
30 GO TO 4з4ааа 
40 REM initialize 
20 LET хд-4: LET y@= 
БӨ LET b$="TO ВЕ URNOT TO BE T 
HAT IS THE QUESTION. WILLIAM 5Н8 
KESPERRE 16803" 
70 LET а%-ь% 


, 88 ГЕТ n=" 128 зк 7 
ба. FOR k=1 TO 8 
100 READ xiki yik) 


110 NEXT k 

120 RETURN 

З00 REM move 

5120 IF begin<>1 THEM RETURN 
Б20 LET m=INT (RNO+#84+1) 

Sow LET Xç =x th): LET YS =4 im) 
540 IF x@+xs 8 QR хёї-х5 1 OR за 
зчеЕ»О ОВ ЗЭВ 541 ТНЕМ во TO 519 
БЫС FEM атгаж ЄК ais 

Soe LET pax@exs (140445-11)48 
570 LET v=xO+(y@-11 +8 

580 LET "u$£-b$ip) 


58 


590 LET b(pis 
бәй LET Ььфіміс 
610 LET x@=x®0+x LET удачоОзче 
еге RETURN 

1000 REM displau text 

1010 ГОН KSI ТО 8: FOR еі TO 8 
2505 PRINT AT 1L4+24k, 144245; DSC LE 
-l1)*8-4i!; 

1039 NEXT 1: NEXT k 

1848 RETURN 

1502 БЕН Flash position 

1518 PRINT AT 14+24408,144+24x8; FL 

Pon 1: GVER 1,5" "4 

1520 RETURN 

ЕӘОӘ РЕМ 415рїач board 

2010 FOR ісі TO 17 STEP 2 

2828 PLOT 8х:-116,155 

2030 DRAH @,-125 

2646 PLOT 124.163-8зі 

2856 ГЫН 128,0 

2068 HEXT i 

вӘ?Ә PRINT AT 29,21) "BORRD": 

2020 RETURN 

2500 REM display ро 
2510 FOR і=1 TO 11 
2520 PLOT &xi-4,13 
Z25230 DRAH 2.-8а 


_ ——— U 








2540 PLOT 4,1i147-85i 

2545 DRAN 80.0 

2550 NEXT i 

2550 FOR k=1 TO 5: FƏR іші та 5 
2570 PRINT RT 3жежі,2%і-і;:з%і(%- 
1) 2543: ; 

2580 НЕХТ i: NEXT 


43 ЕХ k. 

25850 PRINT AT 1,3; "MOVES"; 

2500 RETURN 

4822 REM main Program 

3218 БП 508 за 

4020 INPUT б БЕГ 2-308: "gis TF 
141 OR 15109 THEN GO TO 49228 

4230 LET begin=i 

тезе FOR k=1 ТО |: GO SUR 58082: н 


4250 бп 508 2923: 50 sup 18823: 
п 505 8588 

4258 PRINT дт 20,28;"LEUEL-"; |: 
4070 LET поуєса: LET beginzée 
1080 GO SUB 1586 
4090 INPUT "Є MOVE: “дщ 


“aa IF m<i OR m>ë THEN GO TO 42 


4118 LET move=movedi- GO SUB 530 

4122 GO SUB 18088: IF b$i»a$ THEN 

GO то 4088 

4138 PRINT AT 21,0; "You DID IT І 
"i BOVE; " MOVES" : 

4148 DATA -1,-8,1,-2,2,-1,2,1,1, 

2,-1,2,-2,1,-2,-1 


- 
l= 
5 
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Explosion 


Most computer versions of EXPLOSION set out the board for two or more 
opponents to play on. With this program you are pitted against the computer 
itself. Are you up to the challenge? 

EXPLOSION is played on a board of 3 x 3 or 4 x 4squares. The computer 
will ask you to enter the size of the board you want. 

Each square on the board has a capacity equal to the number of squares 
directly adjoining it. This means that corner corner squares have a capacity of 2 


edge squares have a capacity of 3 


and central squares have a capacity of 4. 





You and the computer have checkers, of opposite colors, that you place on 
the board in turn. You may place a checker on any empty square, or on any 
square which already has one or more of your own checkers on it. A square 
will 'explode' when the number of checkers it carries reaches its capacity. An 
exploding square empties, its checkers spreading out, one to each neighboring 
square. These checkers will ‘take over’ any opposing checkers on these squares. 

As the game progresses the explosions get bigger and bigger. Eventually 
the whole board will explode in one color. If it’s your color you’ve won! 


= REM EXPLOSION 

іс со то гага 

100 со SUB 3822 

1205 cO SUB 28898 

110 LET 1:0: FOR xsi TO Қ 

іре FOR ч-1 TO К 

130 50 SUB sag 

148 IF азьіх.з! THEN GO TO 170, 
TSE IF різі ТНЕМ PRINT ВТ хй-чх 
ха ғы қ жа; 


168 GO SUB 1@@@ 

165 IF и=@ THEN RETURN 

170 NEXT ч 

180 NEXT х 

188 IF 1:1 THEN GO TO 1168 

zac cO SUB 1508 

210 RETURN қ 
пад IF хо .1 AND x<>k AND 4:21 8 
ND u<sk. THEN LET a=4: RETURN 

510 IF xzsu OR x+y=k41 THEN LET 
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вше: RETURN 

S20 LET a=: RETURN 

1000 IF uzk THEN GO TO 1940 

1018 LET bix ,441)-5(х,4411)-41 

1020 LET 4(х.,4411-1 

1028 IF pizi THEN PRINT RT ха+х + 

PAPER тірі; Ьїх, Уу‏ ایا ت ف ا ا 

+1); 

1848 IF че. ЧЕН со TO 18056 

1850 LET БїхХх,Ч-11:5(хХ,4-1141 

10560 LET d (x 9-1) 21 

ссе IF Br THEN PRINT HT ха+х к 
(go gk ety -11 PAPER zipi;bix,y 

1880 IF хек THEN GO TO 1120 

1990 LET bix (+1, Ч1:51(х41,4141 

1100 LET díx41,Ug)231 

1118 EF pizi THEM PRINT ЯТ ха+х к 

0541: Ч 44К54: PRAPER І їр); Ьїх+1 

dij 

11806 IF х-1 THEN GO TO 1160 

1138 LET БЇХ-1,41:5(Х-1,4141 

1140 LET díx-1, ч) 21 

1155 IF pis THEN PRINT AT ха+х к 
хефі1 {FOE ey; PRAPER тірі; Біс-і 


LET ізі“ LET BIX ,фі =0 

LET етт) зе [2 ; 09421 

со SLE 2500 

БЕТПЧЕМ 

FOR mi TO К: FOR hai ТО £ 
IF eíim,n)«»0 OR dH. hy ті TH 
EN LET СП БШП) vt 

1528 NEXT п: NEXT HW 

530 FETLIFH 


- Ж 


ене 
(ЛЕЛ Ee ei К> - 


r= C uo CO p - 
t ea (23 cy 173 1) 


090 FOR m=1 TO k: FOR neil TO k 
18 LET bim ni =ABS CC (ON; n 3 

= NEXT п: NEXT m 

20 RETURN 

Од LET изд 

1 FOR msi ТО Кк: FOR nsi ТО Ж 
2 IF ë CW 1 tS THEN LET veto 5 


Ka БЕР пек 
NEXT n: NEA BÀ 
IF u=@ AND pl=1 THEN GO ТО 


RETURN 

FOR Mi ТО Е: FOR тігі TO $ 
LET СВ. ЕЕ Сап) 

NEXT п: NEXT в 

RETURN 

CE ГОН ізі ТО £f. FORM псі TO К 
4018 LET fimm) =C iR f) 

4820 NEXT п: NEST m 

020 RETURN 

5000 LET 50-08 


бй ба бу бу бу 63 5927 Ca to Co Ер C) t t 


(5) Ca Ca 03 Ga GT G1 Ga 74 C3 C GJ 53 бу f 15 
C FU 1-5 E CIL Су {> Cd 


- 


P C Ga Ga Ca For uc po Fo Fr] For po Fo FO P For Pr = 


f 
Ca 
ғу 
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5010 FOR х=1 ТО k: FOR 9:1 ТО k 
5020 LET so=so+c(x,g1: GO SUB 52 


5030 IF -сіх,Чі «»а-1 THEN GO ТО 


5840 LET s 

5050 IF хак 

5050 LET 

xzx-1 

5070 IF cíx4l,9)2a-1 THEN LET so 

-50410 

5030 IF x-1 THEN GO ТО 5110 

Ee xzx-1: GO SUB 500: LET 

x =x + 

5100 IF сіх-1,4ч:зсзса-1 THEN LET so 

-50410 

5110 IF usk THEN GO ТО 5140 

зла Y=y+1: GO SUB 500: LET 

ышы 

5130 IF С1(1х,4411:4-1 THEN LET so 
50410 

5140 IF u=1 THEN GO TO 51720 

сЕ" Ч=ч-1: GO SUB 500: LET 

Ч=Ч + 

5160 IF cix,g-i!za-1 THEN LET so 
50-10 

5130 NEXT ч: NEXT х 

5150 FETLIRH 

7000 FOR м=1 ТО k: FOR nsi TO k 

7010 LET dím,n)zsÜ: LET e&í(m,n)sé 

7020 NEXT n: NEXT th 

7030 RETURN 

зага CLS : RANDOMIZE 

agio PRINT AT 1,83; 222 EXPLOSION 


8020 DIM bid,di- DIM ctd,d4): DIM 


=Z. ü — 
THEN со TO 50802 
x41: GO SUB 5020: LET 
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d (4,4): DIM e€(4,;4): DIM fF te, EI: 
DIM 2121) 
8028 LET k=4: со SUB тава 
8040 FOR m=1 TO 4: FOR n=l TO 4 
8050 LET fFim,ni =@ 
3060 NEXT п: NEXT M 
8070 LET xO@e2d: LET xk =2: LET wee 
11 LET ukz2 
8030 LET хрз-З «40-12: LET gpzi?s- 
(OxxQ-xlz! 
6509090 LET zt1)s5: LET 2 ta) =6 
8200 INPUT “ENTER THE SIZE OF TH 
E BOARD TAD Se: 3 OR 4 : “SKS: 
3210 IF k$: "50 AND кф6«»"4" THEN 
GO TO s200 
S223 LET k=VAL кб 
3233 FOR iz TO K 
3240 PLOT хр-164:,4Рр: DRAN @,-15 


8250 PLOT хр,чр-16зі: DRAW 165, 


S260 NEXT i 

8274 PLOT xp up: DRAN -12,12 
8250 PRINT HT ха+і.ча; "х"; 

S290 PRIHT AT *¥8.458415°7"; 

8300 FOR isl TO k 

8310 PRINT АТ xB4exk 41 ,yBs і; 

8320 PRINT AT х8.Ч4044К541:1: 

8530 NEXT i 

8400 INPUT “WHO STARTS? YOU (` 
OR ME iM) 7"; TAB 32; b$ 

8410 IF ьз-“"М“ OR b$z'"m'" THEN GC 
то гвар 

8420 IF b$:»'" 7" AND beer "yy" THEN 
GO TO вада 

8430 GO TO 5882 

8620 PRINT AT 16,6; "NOU IT’S you 

R TURN! *: PRINT AT 18, e; TRE Sac 

; PRINT AT 13.3; TAB 31: 

618 INPUT "ENTER YOUR MOVE"; TAB 


32, "X: "95 
S620 IF g$:5"1" AND 880982" AND 
387973" AND g$ck$£ THEN GO TO 86 
10 
8630 PRINT AT 18,14;"X: "394; 
8640 із да YOUR MoE тав 
ae 2 : 
S650 IF h$::"1" AND h£o"2" AND 


Ее AND Seas THEN GO ТО 86 


8660 PRINT AT 195,14; "ү: "” h$; 
8670 LET g=VAL 9%: LET h=URL h$ 
8680 IF rig,h)«0 THEN BEEP 1,3: 
GO TO 86500 

8690 LET fíg,h!)!sfíig,h)41: LET t= 
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TELET ред: LET Без 

828008 со SUB 88808 

82198 со SUB ida 

әуре со SUB 78000 

S738 со SUB 4000 

08608 LET 1-1: LET рг: LET pls 
8510 PRINT AT 16,6; "NOW IT’S MY 


TURN i ". PRINT AT 18,0:1Т8Б 31: 

': PRINT AT 19,0:ТӨВ 31;"" 

зеге LET 21-10900 

5830 FOF qaa TO K: FOR wsi ТО 1 
488640 IF Fiq,wi:8@ THEM GO TO 838930 
asse Go suB заав 

звес LET _ C (q, шішсід,ші-1 


S538 Gü SUB 7020 

2590 GO JUB спа? 

3900 IF so«st THEN LET stsso: LE 
T Ұзд: LET Zzu: 50 TO 8930 

3910 IF SOS THEN GO ТО 3930 
8920 IF RND>.S THEN LET stssó. L 
ЕТ Veg: LET 54 

3830 NEXT ш: NEXT 4 

3940 PRINT AT қ. ам 14; жі ИЕ 9A 
INT AT 13,14;' ie 

Basse со ЗОВ зада. BEEP $7.5 LET 
[LN Ғғ =f [wv /2-3 25 


8960 LET g9=v: LET hsz: GO SUB 89 


8320 LET pisi: GO SUB 16060 

зезо со SUB таар 

зав со 506 482820 

аааб co TO взвод 

580 ЇР ісі THEN INPUT “YOU WIN! 
“TRB 22; “ANOTHER САМЕ"? Y OR М 
";a$. GO TO 3520 

asia INPUT “YOU LOSE!"';TRB 32; "A 

HOTHEF GAME? т OR M . “аф 

9520 IF ag="5" OR aSz'"Y'" THEN RU 

М 

9530 STOR 

9900 FRINT AT хй4х Үү» 

APER тїр! ,ЯӨБЗ (Q,h) 

8810 RETURN 


-r { 


ыды ыы F 
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New York, New York 


This original and exciting game puts you in a helicopter high over New York, 
looking down on the city’s streets. At the moment they are deserted, but soon 
traffic will appear, and it's up to you to keep it moving. You do this by 
controlling the city's traffic lights. When a car (represented by a square) 
reaches a red light it will stop. Each traffic light bears a symbol — pressing the 
key bearing that symbol changes the light to green and the car will continue on 
its Journey. ` 

At the beginning of the game you have 100 points. You gain 10 points 
every time a car goes through a crossroads, and 25 points for every car that gets 
right across the city. However if two cars collide at a crossroads you lose 100 
points and the road is temporarily blocked. You also lose points every time a 
car has to wait at a traffic light. If you run out of points the game ends — if 
not it lasts about five minutes. The more points you get, the better traffic cop 
you are! 








10 REM New ‘York - New York 
11 CLEAR 31522: LET єсх 31688: 
FOR izsc TO sc432s24: POKE 1,8: 
NEXT i 
18 FOR 1-1 ТО 6: READ x: POKE 
&£C4x,255: NEXT i 
13 DATA 75.54,354,381,619,628 
со DEF FN U i) sINT ((55536%РЕЕК 
зш3674-28565ХРЕЕК 236734PEEK 23672 
)58): REM time in seconds 
T DEF FN mix,g)zix4g4RBS (x-y 
1 [| я 
22 DEF FN tU()=FN m (FN ці) ,FN ù 
ЕЗ 
ЗО RANDOMIZE : DEF ЕМ г іх) sINT 
URND xx? 
78 LET z$-2"". LET абай: LET en 
ФО: БЕТ зїй: LET tizi 
30 LET aw=40: DIM х (40): DIM G 
(4.2): DIM ritd@i: DIM 1((42): DIM 
kKidei: DIM 1%і42,1!: DIM ati: D 
IM TES: DIM 9 (9) 
ӨЗ LET afi} =i: LET at2!s»-1. LE 
T at3isse: LET а(4) =-3a2 
80 LET tb=FN 11): LET pu=100 
aa FEM draw zcreen 
100 BORDER Є: PAPER 8: CLS 
110 INK 7: FOR isi TO 7 
120 READ sx, ,su,x,g: PLOT sx,su: 
DRAW х,ч 
130 NEXT i 


hn 
1) 
4: 


140 CATA 0,147,855,0,88,83,198 
ё,0,27,255,0 

150 CATA 26.,0,0,175,92,27,0,112 

164, ,0,115,228,0,.0,175 

200 PAPER 2: FOR 121 TO 42 

2109 КЕНО (411) ,К (13,18 (1) PRINT 

НТ 1(1)3,К(11:15 (1) 

220 NEXT i 

230 DATA 1,2.,"H",1,27,"B",2,85 
ESI BBA E“ ; 0, SB, ЧЕ 

240 DATA 4,1,°6".4,9,"H",4,15," 
i 4,85," d" x Ba 6... "а f 5. о y т в.г 
1 1 ua ЖЗ 29, "NU 

250 DATA 9,2,"0 ,9,10,"P^,9,18, 
"5" ,0,97," R ,10,5,"75",10,33, "T", 
10,28, 0" 

260 DATA 12,3," U", 18,18," WU", 1B, 
о: 4 EOI Y" A ELL; 
"87 13. 40,75" 

270 DATA 16,2,"2",16,10,"3",16, 
29. 4 ,15,27, 5",47:Э,789 5 327 3; 

Ти нэ @ git paren 9. 

290 DATA 19,1,"!",19,9,"8",19,1 

4 цай" зі Б, эж” р". Е у S ,28,29. & 


о 
со 


РЕМ define characters 

FOR із144 TO 147 

FOR іг0 TO 7 

READ х: PORE USR CHR i+i x 
NEXT 3 
70,95,1/0,05,170,85,1 


d 


ҮЛ cm cnm m mc caca e coco Cac car mur 


"Scorer" 
«гіме. 0:%0” 


PRINT RT 2,6; "New York - ty 

бі ark 2 

SSS REM program аср 

1000 FOR 1-1 ТО aw: LET гаг (1): 

LET a$-IHKEY$: IF аф:>»"" AND as: 
>2% THEN GO SUB 3100 

1002 LET 2 -а1Чч 

1005 ТЕ гай THEN GO TO 1833 

1010 LET хэхїїу: LET 929 tt): LET 
$xz0. LET suz9 

1020 IF г-1 OR rsi? OR rz33 OR 
265 THEN LET xsx41: LET Ғ=14.0: 

ЕТ 602131. LET GOSS: LET 5421: 
IF x»31 THEN GO TO 12008 

1930 IF г=2 OR г=18 OR г=34 OR 
«56 THEN LET xsx-1: LET (131: 

ЕТ 002140: LET 02145. LET sys-1: 
IF x:à THEN GO TO 1200 

1040 IF г=4 OR r=2@ OR rz36 OR r 
«58 THEN LET Ч=у+1: LET ЄЕз138: L 

ЕТ 00-133. LET 022465. LET Sx==1: 
IF 4:21 THEN GO TO 1200 

1052 IF г-8 OR г=24 OR г=4@ OR r 
-72 THEN LET uzu-1: LET f=133:- L 

ЕТ 002138: LET oz146: LET GX ZL: 
IF 4:8 THEN GO TO 1200 

1060 IF г:15 AND г:За THEN GO TO 
1106 

1070 IF г»31 AND г 64 THEN GO TO 
1400 

1080 IF г»63 THEN LET 0z147: LE 


z (53 (53 (53 (Ca (73 (53 (53 (53 ta (73 03 Ca VI 

T 
I! 
т 
п 
ТІ 
Ti- *e 5% 

FO Oe C Cü S 


n 
£= Ca Pr Ee ҒӘ -ИТЫЛ- FG һа Cu MI 


FA 


p, 


T rsr-6&: LET rtii)st; LET puspus 
ie 

1080 со TO 1588 

18895 НЕХТ i: GO TO 2000 

1100 IF (SCREENS (4(1145Ч4,Х1(1145 
хі) >232 THEN LET fzf416.: LET ris 
isf: GO ВО 13800. 

1118 LET pu=su-1: GO TO 1699 
1200 LET Pu SpUABS: LET Pnzspn4i 
LET гї =й: GO TO 21333 

1300 LET а-РЕЕК ísc432su4x1: IF 
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а=? OR а-143 THEN LET рисри-1: G 
Ü TO 18233 
1310 IF SCREENS (Uu+šS ,xX+SX1 «»" 
THEN LET Г(11-4158 
1320 IF а-00 THEN LET Ғ-143 
1325 LET а-РЕЕК ísc432*gíi)-«xíi? 
): IF а=143 THEN LET oso 
3297 IF ae144 ҮНЕМ LET FCF SO: È 
ЕТ асб-ас-1: LET Puzspu-100: GO TO 
1299 
1330 PAPER 0: INK 6: PRIHT AT ч, 
x; CARE Ff: POKE 2Сс432%ж44х,Ғ 
1333 PAPER ©: INK 7: PRINT AT 4i 
11,Хх(11 CHR$ o: POKE сс432%4111- 
*t1),0: LET Xftt1)-2X. LET QgtiJjsu 
1340 со TO 1099 
1400 LET azPEEK í(sC432*g4x3): IF 
а=? THEN GO TO 1099 
1410 IF а:>127 ANG а+>›@ THEN GO 
TO 1580 
1420 FOR Ка? TO 2: LET J=FN г (4) 
: LET Ь-РЕЕК ¿ísgr+32xu+x+a 11411): 
IF NOT ibzl145 OR b=146 OR Бій! 
THEN NEXT k: GO TO 2099 
1430 LET kee: NEXT Қ: LET ríils2 
1,364: GO TO 1330 
1500 LET 80533041. LET rí(i1)z0: LE 
T B ааг: БД IF а:>144 THEN BEEP 
»-12: LET ағ=ағ+1: LET FfFiafi =x 
А "LET giaf)!zu 
1510 LET Ғ-144: GO TO 1330 
С000 IF ritlis=@ THEN GO TO 2100 
2010 LET 11=11+1: IF tl:aw THEN 
LET TESI 
gozo cO TO зада 
2100 LET asFN rí4): LET FUL =F 
a: GO TO 211@+1@+а 
2118 LET Ғ=140: LET RITIL 28: GO 
TO 2200 
2128 LET fz131: СЕТ xtti)s331: GO 
TO ааб 
2138 LET fz138: LET GILLIS: GU 
TO 2388 
2140 LET (:133: LET yitt)s21: GO 
TO 238008 
2200 IF FN rig)zi THEN LET Уі. 
=3: GO TO 24800 
2210 LET yltlti=18: GO ТО 2400 
2300 IF FN f t2} =i THEN LET х 110) 
=з: GO TO 8400 
2310 LET х(111-248: GO TO 2408 
2400 PAPER 0: INK 6: PRINT AT 4: 
111 yK ECEN; CHARS Т 
3000 LET aS=INKEY$: IF a5$:»"" AN 
D a$£::z£ THEN GO SUB 3108 
3002 LET г%са% 
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3018 co TO 42882 

3100 LET а-СОГЕ аб 

3110 IF а›64 AND a:91 THEN LET b 

=а-64: GO TO 3200 

3111 IF а>96 AND a:123 THEN LET 

Б=а-96: GO TO 3200 

3180 IF a:47 AND а<58 THEN LET 

=а-21: GO TO 5200 

3130 IF a:32 AND a<39 THEN LET b 
ид 


Ur 


=а+4: GO TO 32880 

3140 IF а=64 THEN LET b=38: GO 
0 3200 

3150 RETURN 
3200 BEEP .. 


1, 
2210 IF wae, te кн TH 


355 = а zi 
3308 PAPER а: INK 8: PRINT AT L! 


3318 RETURN 

4822 PAPER в: INK а 

40810 LET t=FN til-tb: LET tReet 
(12501: PRINT AT 20, 17:181”: 

STR (100+1-їһ+60) i 12 TO 3) 

4020 IF PU THEN LET ри-б 

4030 LET S%=CHRS 145%5ТБ% ipu! 

PRINT AT S,l18-LEH гафі;аф 

4040 IF puzeà THEN GO TO 95360860 

4100 IF FN ries: OR а?=@ THEN GO 
TO 4288 

4118 FAPER Q: ІНК 7: PRINT AT 

11 fiili; CHR$ 147: PORE §c4+3249: 
) +f 02,147: FOR 1851 TO 6: LET 

13 Sf (2423: LET 4111:50311411: МЕ 
1: LET afzaf-1 

4208 IF FN ti:-tb;3800 THEN GO TO 
зоос 

SIE co ТО 1800 

әсәй BEEP 5,-12: INPUT "Do you y 

ant to play again? ";аф 

2010 ІР 8t$(1)s"n" THEN GO TO 312 

e 

9828 RU 

83182 PAPER 7: INK @: CLS 
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Key 


Searching for a key you have lost can be an aggravating experience at the best 
of times, but when you have to find it as quickly as possible and, what's more, 
it's hidden inside a computer the whole thing becomes very exasperating, but 
also very challenging. 

The computer has stored inside it a string of 20 ones and zeroes. 


|0100101011101010110 


These figures can be shifted cyclically, that is, digits are moved from the 
lefthand end to the right. This is done three times and the numbers in each 
column added, for instance 


row | --00101011101010110101 
гом2-»-01110101011010100101 
гом 5 —> 01001010111010101101 


sums — 022 1212222303031 1303 


This is all kept hidden from you: it is іп fact the key you must find. 

What you are shown are the three rows of numbers, each shifted again. 
For instance if the top row is shifted two positions, the middle row 4 positions 
and the bottom row eight positions you will see 


МОЛОТ TL JOLOTOTTOTOTOD 
0101011010100101011! 
|11О01010110101001010 
20000112111123310122 





You are not shown the sum of the new columns but the difference for each 
column, between this sum and the first ’hidden’ sum. In the first column, for 
instance, the hidden sum was 0 and the new sum is 2 so you see 2; in the second 
column the hidden sum was 2 and so is the new sum so you see 0. You must 
now shift the three rows until they are the same as the hidden key, when, of 
course, all the differences will be 0. The rows are numbered (the top row is 1, 
the middle 2 and the bottom 3) so that if you enter 


ROW =2 
STEPS = 1 


the middle row will shift one position to the left. 
How few turns will it take you to find the key? It has been done in as few 
as 10. 
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1 REH keu 
5 LET nt=0 
10 DIM ti4,20) 
,."8 LET a$2"1010010101110101011 
a» 
3@ L !їаз-0 
42 RANDOMIZE 
50 FOR ісі TO 3 
50 LET r=INT :RND&1941) 
70 FOR к-1 TO 20 
80 LET dis=k+r 
88 IF dis<21 THEN GO TO 110 
100 LET 415-415-208 
118 LET tij,ki =UAL agidis) 
12@ NEXT k 
130 NEXT j 
140 IF Flag>@ THEN GO TO 180 
150 FOR к-1 TO 20 
160 LET t(4,k)=t(1,kK)+t(2,kl1+t i 
3,1) 
7@ NEXT k 
80 LET flag=fla 
Әй IF Ғіаа>і THEN "go TO 2168 
88 Ir _flag=1 THEN GO TO 58 
20 LET tei-Q 
30 FOR k=1 TO 20 
40 PRINT AT 10.К48:1(1,К) 
50 PRINT AT lil.k428;t(2,k) 
50 PRINT AT 12.К48:1(3,К) 
70 LET у-1(4,К1-1(3,К1-11(82,К1:- 


LET vsMBS (У) 

ТЕ v=@ THEN LET telisteLl41 
PRINT HT 14.Е-2;У 

NEXT K 

IF tels? THEN GO TO 458 
INPUT “ROW="> 3 

INPUT "“STEPS=";5 

LET ntsnt41i 


f» Ca Ga Ca Ca C Gar Ca Ca Р por fur Fo Por por For POL TUE pe ps Re 


C3 ua On S CH Cf] Ca Por e wv Co 1» 
50 (23 3 (53 (:3 653 GG рег (53 от (3 (2 Cas (22 63 053 (53 (23 CG (53 Ca (22 C у — 


FUR 153 TO S 

LET => G1. 33 

FOR к-1 TO 19 

LET + 8) St OS КЗ) 
410 NEXT K 
420 LET 1(,,20:-8 


і 

430 NEXT 1 
4422 GO ТО 218 

450 PRIHT FLASH +; "Жон got it s 
n “SHE: turns' 


Black Box 


Armed only with a laser beam you must discover the whereabouts of a handful 
of atoms hidden in a vast black box. 

The box consists of 8 x 8 x 8 cubes. Atoms can be hidden in any of the 
cubes, apart from those in the outer layer. However, there are never more than 
five atoms in the box. These atoms will reflect or divert laser beams according 
to the following rules. 

— a beam which strikes an atom is reflected straight back in the opposite 

direction 


— a beam which is set to pass through a cube directly adjacent to an atom 
will be reflected at right angles 


рое: сааат =s 





— а beam which 15 set to pass through а сибе diagonally adjacent to ап 
atom will be reflected in a direction which can be obtained by adding two 
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right-angled reflections 





The box is numbered like this: 





oo N O in * c сч 


a. 
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The computer will ask you to enter P1, P2, and P3, the coordinates of the 
position where you want the beam to enter the box. Obviously, this must be on 
the surface, so at least one of the coordinates must be 1 or 8. When you have 
entered the shot the computer will tell you where the beam has emerged. 
Remember that a beam may be reflected by more than one atom. If two atoms 
are lying right next to each other the final direction of the beam will be 
determined by the sum of the effects of the individual atoms. After you have 
had a few shots you should be able to work out where the atoms are — but 
then how few is ‘a few’! 


10 REM BLACK BOX 

20 DIM Ьь(18,10,108) 

ag со TO 18аб 

100 БЕМ input shat 

110 PRINT “Please input shot" 
1220 GO SUB 500: REM input 

1306 LET dx=ipx =2) -(рх-9!) 

140 LET 44:1рч-2ө)-(Ррч- 48) 

150 LET dz=tpz=2) -(pz=9) 

1580 IF ііх-ді AND (44:01) AND id 

21:01): THEN GO TO 120 

1780 RETURN 
202 REM compute result 
216 FOR xz-1 TO 1 
220 FOR y=-1 TO 1 
230 FOR z=-1 TO 1 
240 IF Бірхзх ,розч,різа) «21 THE 


318 L. 1х:55Ч ах: LET dysSGN d 
iy LET dZsscn 42 

S20 LET рх-рх-4ах: LET рч=рУу+ач: 
LET pzspz4dz 

220 IF {рх=21 + 1рх=9) + (рчу=21 + (рУ 
=9) +ípZ=2) +(pz=9)=@ THEN GO TO 2 
іс 

340 PRINT “Result px-42;" ‚Р 
eil" С1827-1 

SSG RETURN 

400 БЕН input guecs 

4180 PRINT "piease input guess" 
420 со SUB 582 
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430 IF bípx,pu, гое THEN PRINT 
"Right!": RETURN 

440 PRINT “Ыгопа!” 

452 FETLIRH 

500 REM input coordinates 

510 PRINT “Enter coordinates" 
520 INPUT "Pies"; рх: LET рх=рх +1 
530 IF рх:2 OR рх>9 THEN GO ТО 


580 

540 INPUT "РЕес";руо: LET рч=рч+1 
5:2” IF Puy:z OR рч»,9 THEN GO ТО 
540 

560 INPUT "РОС"; LET pz=pz+l1 
аА. IF рт‹г OR 6 THEN GO TO 
сад PRINT “Input: ““Үрх-ы12н 2 "5189 
-—-1." "p27-] 

540 RETURN 

1022 REM main program 

1010 FOR а=1 ТО 5 

1020 LET btRND+64+2,RND4642,RND06 
+21 =1 

1030 NEXT š 

1040 GO SUB 100: REM input shot 
ҮСЭН GO SUB 28002: REM compute res 
Li 

1060 INPUT “Shoot or guess іс сг 
л? "7; 2% 

1870 IF t#i:"s" AND t$i2>"9" THEN 
GO TO 1860 

1080 IF 18:55" THEN Бо TO 1848 
1880 cO SUB 400: REM input guess 
1100 GO TO 18068 
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Treasure Hunt 


Have you ever dreamed of going in search of hidden treasure? Of journeying 
through wild and hostile countryside, living off the land and sleeping rough, 
until you reach the remote and forbidding land where your glittering prize is 
hidden? If so, this is the game for you. 

You will be taken high up into the Rocky Mountains and given a map 
which shows where the treasures you seek are hidden, and what they are worth. 
To reach them you must make your way along narrow twisting paths — one 
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false step means certain death — by using the cursor keys on your computer. 
You discover the treasures simply by treading on them. 

But wait ... it’s not that easy. You didn't really think it would be that 
simple, did you? The treasures you seek are very carefully guarded by some 
extremely vicious and terrifying birds who will attack you if you are not 
careful. If they get you in their sights you will be paralyzed with fear. The only 
thing you can do to try and stop them is to press the 1 key. 

If you still feel up to the challenge start your search in the lower left hand 
corner of the map. Collect as much treasure as you can and take it away 
through the upper right hand exit. This will give you bonus points, and another 
chance to journey along the paths, picking up treasure. In fact you can make as 
many treasure-seeking trips as you can get away with. Unfortunately each time 
you go through you disturb more of those appalling birds, who become increas- 
ingly aggressive. 

The risks are high, but so are the rewards, so gather up your courage and 
off you go! 


REM TREASURE HUNT 

DIM Ь$ (15,25) 

| nt=3: LET br=8 

LET RCSD: LET pis@: LET pes 


LET ТЕ 


DATA “ З = 
гата "Mis 


DATA 
DATA " БЯ 
DATA " 


Lane 
субу Сул 
" 


e 





Ca 1C 0-4 TI 


(53 174 (53 173 O 173 O G C3 (53 153 (53 154 C3 153 ете 
ri 
тї 
-4 
т 


E C Ww ve ы CH UCHI d£ 6a mrs 


[Ú [Ú F F F> хий эй хий хой хой хай нэ 
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зав 


REM xzscreensx 


310 RESTORE : OLO 

380 FOR у-1 TO 15 

330 READ biyi 

S48 PRINT AT ч+2,6; bS (4) 

350 HEXT ч 

300 LET хар: LET Yata 

280 PRINT AT ute, X 48 "Ф" 

388 PRINT AT 19,5; "ROUND: Т 
AT 13,15; "COLLARS: “рр 

400 RETURN 

450 FEM #4player MOVES #4 

46@ LET tixs=3+RND4(18@-1@4enc) 

470 FOR usi TO ti 





LET 1 -1ЧКЕҮ $ 


IF tes" THEN 566 ТО 420 
LET 4Х:115::8:51-1(1 5275") 
LET dusiít$zs"B6'")-it£z"7") 
LET зєфавбфічзач,х.-ахі) 

IF 55-14 THEN GO ТО Бае 
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548 
550 
os os 
550 
570 
580 
582 
Бай 
618 
ti 


1050 


PRINT AT ч14-2,х-5;" 7" 

LET х=х+ах: LET u=u+du 

LET pozCODE є5-48 

IF po:e8 THEN GO ТО 680 

LET рісрізро: LET pe=pe+pa 

PRINT AT 19, 25; Ре 

LET bS(y,xX} =" 

PRINT AT 4-2, x 

IF х=19 AND Ч=1 ңін LET t= 
LET br «i 

HEXT и 

RETURN 

БЕН ##buLletz#és 

LET t#=INKEY$ 

LET dtzi5-Ssnc: LET xS=x+S 

FOR b=29 TO x5 STEP -i 
^ PRINT AT Уу+2,Ь; 0$ 

FOR езі ТО di: NEAT € 

IF INKEY$="1" THEN RETURN 

NEXT b 

RETURN 

РЕМ зазтаїп Program 

GO SUB 300: REM screen 

GO SUB 450: БЕН move 

IF bfzi THEN LET bras. LET 


mc=nc+1: LET pe=pe4+nc#pi: LET ri 


ze: 

1648 
1050 
1060 
1270 
1080 
1080 
1106 
1119 


LARS” 


50 TO 1010 


GO SUB 700: REM bullet 

IF b:x45 THEN GO TO 1100 
PRINT AT us2,5;b5iu!) 

PRINT AT ч+2,х+5; “ж” 

LET р1=р1+1 

со TO 1828 

BEEP .5,29. GLS 

PRINT “YOU HOUN: ",p2;- " BOL 
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IT. — The Adventure of the 
Century 


In this crazy adventure you will sink into the bowels of the earth and meet a 
very strange creature who lives there. His name is, of course, I.T. which stands 
for Intra Terrestrial. 

If you have never played an adventure game before don’t worry about the 
rules — there aren't any! You have to work everything out for yourself as you 
journey beneath the earth’s surface, performing extraordinary tasks and facing 
terrifying dangers as you go. If it all gets too much for you enter HELP and see 
what the computer comes up with. 


So, type in the game, take out a good insurance policy, give the RUN 
command, and off you go! 
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10 REM I.T. 
102 со SUB 58048282 
110 LET ihdzB$: LET nkamzà 
120 GO TO 148 
130 со SUB 582 
142 GO SUB 1088 
ise со SUB заг 
160 IF cwd<5 THEN GO TO 138 
170 CLS 
1850 PRINT "CONGRHTULRHTIONS; yau 
succeeded" 
190 PRINT "in killing yourself” 
200 STOP 
БОС БЕН inpuiset*t4xkX4Xk£k£xxkEec« 
510 LET пкКан-й( 
5280 LET ihdzé 


S308 INPUT “hat would you Like 
teo do TC 

25560 LET tng=lLEn (сф) 

568 FOR isi TO 15 

5/0 IF hii, ТО LHO) ася THEN LE 
Т dhdzi: LET 1515 

580 NET i 

БО IF ihd:& THEN RETURN 

еге IF ihdzüà THEN GO TO 650 

610 LET nkatWzktikB;ihd) 

622 IF nkam::Q TREN RETURN 

БЗВ PRINT “You саппої go іп tha 
+ йалагеС доп. 

540 GO TO Бай 

etse PRINT "I don't understand з 
0117 

ceo со TO Бай 

57E RETURN 

500 БЕН output 

810 PRINT “you are in the IFS 
LEM i 
Sil IF 1КїїзЕ4 СЕ bLLsl THEN GO 
го 220 

сір PRINT “You саппої see much 
here” 

515 со TO 8520 

БЕЙ IF ivw:;8 THEN PRINT "There 

16 а "ivyv&tivwW);" here" 

бэ? FOR ізі TO 6 

540 IF kiikm,i!:5;0 THEN PRINT 
HOU can go ";Һ%іІ1) 

SS@ NEXT i 

seg PRINT 

578 PRINT ' Xxx 

cag PRINT 

850 FETURN 

1002 БЕН operations 

19816 IF mkam::@ THEN LET ikmsnka 


ща 
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1928 LET ivu=8 

1030 FOR 1-1 ТО 12 

1040 IF vii)zikm THEN LET ivw=i 
LET 31218 

1050 NEXT 1 

1060 LET ips=8 

1253 РОН 1:1 TO 6 

128 IF pti,l)sikm THEN LET ipse 
3: LET і зб 

10830 NEXT i 

1100 БЕН general operatians+#+++ 
1110 IF í(ikm:iz? AND (ссі«»8! TH 
EN СО SUB 45580 

1120 IF bll=1 THEN GO SUB 4700 
1202 REH personal ОРЕГВ1Ї10Г15 43454 
1810 IF ihd:? THEN GO TO 1248 
1220 GO SUB 13003 lihd-7) +200 
1230 БЕН handlers 

12840 IF ipzzà THEN RETURN 

1258 50 SUB 2800-411рє-11458800 
12560 RETURN 

1300 REM жжЕі! L з» 


"E 
1310 IF (1рз5:01 OR (ips»4) THEN 
PRINT "Time is the only thing зо 
о can kill here" RETURN 


1320 LET ivubz 
1330 со SUB 4800 


1340 IF ibz=@ THEN PRINT "І will 
пої Let you attack with bare ha 
nde: that's suicide": RETURN 
1350 PRINT SU You want to kiti 
the “ірфіір 
135@ PRINT уен attack it With ч 
cur Sword"; 
1570 IF {ЕНО:.51 AND (p lips ,2) :4 
3 THEN PRINT " but your victim m 
OWES Quickly ашам": GO TO 1395 
1380 PRINT " and You give your : 
ictim a terrible blow" 
1390 LET р{ір=, 3) =plips,3)-1 
1395 IF ВМР >. 2 THEN GO TO 1440 
1420 PRINT "This іс your chance, 
You сап hit him again before he 
regains his Feet” 


1410 INPUT "po, оу want 107 yg 
1420 IF ч%:>“4” THEN GO TO 5432 
1432 асты зі eau Гзісе your sward 
again';: sa TO 1370 

1440 ТР” р (їрє 3! 1 THEN RETURN 
1450 TF р(ір=, 3) 21 THEN PRINT "» 
cur victim is badly wounded": БЕ 
TURN 


1460 PRINT “You killed your vict 
im^ 
1470 LET р(1рь5,11:-0: LET ivw=84: 
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PS 

1480 LET víivw)zikmM: LET ipss 
1490 RETURN 

1522 FEM +#help+e 

1510 PRINT “possible commands." 
4528 FOR ісі TO 15 

1530 PRINT h$íi! 

1540 NEXT i 

1550 RETURN 

1722 РЕМ -»tiake&e-- 

1710 IF ivw:»Q THEN GO TO 1740 
1720 PRINT "There is nothing tc 
take here" 

1730 FETURN 

1740 PRINT "I take the ";vmÁiivul 
27 Tar Ч.” 

1750 LET bíibmax)szivw 

1760 LET ibmax =i ьмах +1 

1770 LET viivuwi =@ 

1780 LET ivw=8 

1790 FEETLUEHMH 

1900 REM жжігорж 

1312 INPUT “Lihat would чай Like 
to drop? ";dt 

1915 LET Liq=LEH 14%) 

1920 LET ivubza 

1230 FOR і-і TO 12 

1940 IF і%:у%іі. TO tng) THEN LE 
Т ivubzi: LET 1-158 

1950 NEXT i 

1260 IF ivwb<:8 THEN GO ТО 1880 
19570 PRINT "I don't understand u 
hat you mean 

1930 RETURN 

1888 со SUB 4586 

2620 IF ibz:»0 THEN GO TO 2030 
gelo PRINT “you cannot drop thin 
qs that uou do not posses" 

gozo RETURN 

2030 PRINT "І GERE the SVE Cb 
(ibz)3;" for uou" 

2640 LET Ivask ТА bri 

2850 LET vibtlibzi} =i km 

2650 LET biibzi=biibmax-1) 

2670 LET ibmaxzibmax-1 

2675 IF ikM<325 TREN RETURN 
20230 oe ee "ро you want to drol 
more? : 35 

2035 IF чфа"ч" THEN GO TO 1910 
гёз RETURN 

2102 REM ззіпчєгі»ж» 

2110 IF ibmax<:1 THEN GO ТО 2148 
2120 PRINT “You do not own mare 
than what you wear пош" 

2130 со TO 2150 

2140 PRINT “you have the Follow: 
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things: ” 

0 FOR ісі ТО ibmax-1 

e PRINT v$ibíil) 

© NEXT i 

e PRINT "You can suffer ";5-с 


Wounds before you die" 
RETURN 

REM $ebandage ++ 

LET ivwbs=6 

G SUB 4589 

IF ibz<:8 THEN GO TO 2358 
PRINT "You cannat тападчає th 


7v C о GI C C C) Cd E CL E شم‎ о ыш 
15 C) Ca C3 C СЭ) 
тў 
52 


ШЕЛ p Gam Cole: Oo 


à mà c pipa ze por por ar po por por po Fo P. f Pa PO лз 


uithout а bandage” 
ё RETURN 
© PRINT "That does not took v 
hopeful” 
220 PRINT "I witt need ett you 
ave" 
330 BEEP 1,1 
SOQ PRINT "So, that will hold 7 
f a while" 
402 LET cwdze 
2410 LET blibziczbiibmax-1) 
#4 EG LET іЬмахзїьтах-1 


2430 ВЕТОЦЕН 

БЕС ВЕН з»зіапієг7п anes 

2949 LET ivub=1 

gogo GO SUB 4582 

2530 IF і БЕ ¢? ‚б THEN GO TO 25860 
2540 PRINT “you cannet do that u 


ithout a Lantern" 

2550 RETURN 

2568 PRIHT “Тһе Lantern is on na 

ul '' 

2970 LET btistil»i 

2530 RETURN 

27098 REM *xxxiantern oF Fee 

27i8 LET іушісі 

EFE GO SUB 4880 

2730 IF іһті:>й THEN GO TO 2768 

2248 PRINT “You do not even have 
a ianternm" 

2750 RBETLUEH 

258 PRINT “Тһе lantern is aff r 
Gu 

2270 LET bl kS 

27882 FETURN 

ZA БЕН »sreadex 

2905 LET ivubzá 

ZZSië со SUB 4582 

2315 IF ibz::à THEN GO TO 2930 
2920 PRINT "vou cannot read back 
5 if you da mot have them" 

2325 RETURN 

2930 IF bil=1 ОР ikm»zd4 TREN Gü 

TO ESE 


88 


pa pu à. mi 
18) 


* c MO MC 


ТТ, 


PRINT "It is to dark to гез 
ге 

RETURN 

PRINT "There is a recipe in 
5 book that describes hou 10 
е Cookies 

PRINT "Iti 5845 take опе de 
&e€iLihaund and some wheat. Orc 
15 on a barbecue апа wait a 
i 


PRINT "That if all" 

RETURN 

БЕМ «41.Т,-34 

IF ivwz3 THEN LET pti1,2)=3: 
у (іУцф) Од: LET ivw=0 

за TO S3S8z8-«pil.2)s18 

PRINT “Т.Т, (the intraterre 
gti 15 ҺЕГЕ” 

PRINT "It Looks as thaugh hkh 
nts to tBiK" 
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б) Bagot 
РРО єн! 
2 PH GERE. 


RINT 
PRINT 
erate’ 


30420 RETUR 
3650 PRINT 
г аз if he 
3851 PRINT 
a While he 
3052 PRINT 
€alize '; 
30535 PRINT 
him now ''; 
3054 PRINT 
Gump into t 
HOLLT bo 
38055 PRINT 
wants ta 
it" 
3056 PRINT 
he monster 
3ags7 PRINT 
only YOU 
3055 PRINT 


2) 1.1 Т CO Ca Cd 27 Cd 


"He talks but усу can 


gestures that h 
"something to dfink" 


"He Looks rather desp 
hi 

"bea T d 
needed j 
"ії Very MUCH. 
starts 7; 
“talking again. 


“that 


“He Says: 


drinks 


the wate 


After 


yoru [р 


400 understand 


PLEASE ao 
ne caves and Find the 
їй 1: 


"Some crazy professar 
blow up the earth with 


"I had a Fight 

that guards it" 
"Now I am ta weak; 
сап save the Earth’ 
“Suddenly he collapse 


3 


with 


+ 
Ч, 


ас 


є and ralis down" 

3058 LET р{1,21=4: RETURN 

20400 PRINT "It 100155 like I.T, i 
= in a coma" 

30861 PRINT “Now you have ta do i 
t an your oun" 

3062: PRINT "GOOD LUCK" 

3063 LET PULA} =5 

3054 FETLURN 

3070 PRINT "I.T. is here" 

3071 PRINT “he if in a сопа” 

30272 RETURN 

3292 БЕН з»загазогя»з 

2210 IF ivw=8 THEN LET р {2,22 «8 
LET viivwisdü: LET іуш-й 

заго cO TO BeeG4+pie2.21:418a 

3230 PRINT “Тһеге is ап ENnarmous 
mcocngzter here" 

3031 PRINT "Its eyes are rattling 
dangerousiu" 

3232 PRINT “It yetts are you a 
cookie" 

3233 LET pí2,2) =e 

зеза RETURN 

3240 PRINT “the monster yells ic 
uder апа Louder 


LET Cudscud-*l 

LET pí2,.,2)zINT iRMD«31!^42 
EETLURH 

PRINT "The monster says Сос 


3241 PRINT “ARE YOU A COOKIE” 
Sede LET рїзЕ,2:-3 

3Е4-2 FETURN 

3255 PRINT "It keeps yelling” 
3251 PRINT "And it becomes rat^e 
r agaressive" 

3052 LET р(8,21-4 

23253 RETURN 

ЗОБО PRINT "The monster gives чо 
у a terrible blow" 

3ЕБ1 PRINT “your head is Spinnin 
4 

3 

£: 

3 

к 

З 


PRINT "and st 


“A TTT “Ad 1 gum - nen 
Bay Fa tn бу СА ПО 


2 

z 

2 

> 

D 

i 

B arts 

o € 
3272 PRINT "Then there is an eno 
rmous BONG and it Falls asleep 
BEEP .2, 
3273 LET k(16,6;)=1 
3074 LET pl2,2) =6 
3275 RETURN 
3280 PRINT "The monster sleeps” 
3281 RETURN 
3400 REM sssnakess 
3410 PRINT "There is a sneaky sn 
ake here" 
3420 IF RND:.4 THEM RETURN 


1| 


3432 IF íibmaxzi) OR iRND:.5!) TH 

H GO TO 2420 

3440 LET ibmax=ibmax-1 

3450 LET vibtibmax)) =13+INT ЕНГ 
#12: 

3460 PRINT "With а Quick move it 
Picks somethins UP and 7; 

3470 PRINT “sneaks away to anoth. 

er piace" 

3480 LET р (š; 1) эр (3, 1143 

3490 IF рі3,11»24 THEN LET рІЗ,1 
y =p t2 , +). = 

3520 RETURN 

35820 REM +#ehEeLLhounds+ 

3628 GO TO ЗБ29+р (4,2! #12 

3530 PRINT "There іс a giant hel 
thound here" 

3631 PRINT "It Lacks as though h 

є wants yau ror dinner" 

3632 LET pid,2) =e 

3633 RETURN 

3640 PRINT “Тһе hellhound attack 

you and bites you violently” 

3641 LET cud=cud+l 


| 


тг 


‚91 


3642 LET р(4,2)-3 

3545 RETURN 

3650 PRINT “The hellhound агсшї 
and seems to prepare For anathe 
r attack" 

3651 LET piá,z2)zs2-4INT (RNDs2) 
3652 RETURN 

3800 REM xxbombxs 

52 PRINT “The nutlity bomb іс 
ere" 

3820 PRINT "There аге three wire 
5 between the БОНЬ and the time- 
mechanism; a Green (9) one, a че 
{аш one iyi апа a red one (ri, 

YOU must disconnect two of them 
ұз 5ТОР it" 

3830 INPUT oc will be the Fi 
rst обе? ох 

3848 INPUT “Bnd which will be th 


є second one? “ys 

35050 LET CBOSS: LET EG" org" 
3850 FOR 1-1 TO 3 

3970 IF x$=c$iil THEN LET cboscb 
41 

3880 IF чу -с 1: THEM LET cbo=ck 
oxi 

2880 NEXT i 

3900 IF cbo:z THEN PRINT “Watch 
auti: wrong input’: GO TO зага 
3910 IF (CODE :x5!xCODE (us) 2117 


42: THEN GO TO 12858 

3328 CLs 

3830 PRINT “You tried hard but u 
nfoctunateiuy you did not succeed 


3940 STOP 


3950 FLASH 1: CLS 
3950 PRINT “Congratulations; You 
succeeded where others failed" 


3872 STOP 

4222 БЕН ¢¢barbecue++ 

4010 IF ivw=8 THEN GO TO 46868 
10202 LET pip 2) =2 

4030 IF іуірісікш! AND ivil2)si* 
т) THEN LET ivw=S: LET V (i vw) =i K 
м: LET VI2 =: LET ví12)z0: GO T 
о 4060 

40480 LET w ivu =@ 

4850 LET ivwur=ë 

1060 cO TO 48968+104¢p (6,2) 

42720 PRINT “There is a giant bar 
becue here" 

4071 PRINT “with а Large fire un 
der it" 

4@72 RETURN 

4050 PRINT “An enormous Flash Li 
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(еу 


е - 
em 
pup aah fe / 





~ 1) 27 
em pe m 


uu 


Li 
INT “Everything is quiet 


INT "even the terrible sm 
есі! has Faded” 
4082 LET р(6,21!-1 
40285 RETURN 
4702 REM х 41141155 
4710 LET С21у1ЕЕС1у6--511 
720 IF сіі>5 THEN RETURN 
4730 IF CILS THEN GO TO 47268 
4740 PRINT "The Light GF yaur La 
ntern dias": BEEP .2,1 
475@ RETURN 
4760 IF cii:»Q THEN RETURN 


UAL 0+ 


ЖІ о 


р 
G 
Ur 
ь 
т 
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1770 PRINT 
t": BEEF А 
7380 LET Ь11-0 

47288 ВЕТОЦЕН 
4508 БЕН жжісек 
4510 LET ibz-é 
4522 FOR 1с1 ТО 
4630 
; LET i-zibmax-1 
4340 НЕХТ i 
4550 RETURN 
4550 БЕН *xxpuzz 
4565 LET 
4570 IF 1Хй-016 
cri¢l 
4675 


“You 


IF LI GES THEN 
СОО IF Cris8 THEN 


r Lantern goes 


C: 


in ownings” 


i bi ax - 1 


L € x= 


cro=cro¢1 


THEN LET ctfi 


RETURN 
GO TO 491 


rel 


5 
F 


il 


ТЕ Б111:1УҮШ 5 THEN LET ib2-i 


4535 PRINT "strange things are h 
aPPening" 

4528 PRINT "Darkness covers yaou 
and it Feels ас if samething eam 

e€ TTE іс 11111018 vou” 

4225 PRINT "For a moment you are 
umnconciocus" 

4500 LET CfOzl: LET tfisi 

4305 LET ikmzi 

42912 RETURN 

4212 PRINT “You hear а strange =£ 
сипа ас if someihing is being pu 

£hed sway" 

43520 PRINT “Now it has stopped" 

“Әр LET k (2,1) <3 

4330 FETURH 

БОРО РЕМ inst l x+ eee ЖЖЖ ج بت 4 ا‎ 
5010 DIM k (36.6): DIM г5«36,151! 
ерге DIM RB$ií15.i5! 

5030 DIM BIBS: DIH BEB SLO) 
5040 DIM y (12) DIM vetle, le) 
5250 DIM Pilz! 

50860 DIM dic! 

З102 БЕН connections 

2119 FOR isi TO 36 

Эн Ë KEN yJ LI SELES LET £1,282) = 
1 “» 

54249 LET Eir Simipa. LET KUY ,4) = 
1-4 

5140 НЕХТ i 

5106 FOR те ТО 24 STEP 12 

SIS FOR 2.22 TO 8 STEP 4 

Sire LET 4114443,11А2280: БЕТ & C245 
roi = 

5130 MEXT | 

5190 FOR ізі TO 4 

зоба LET £is $348,383) <8: LET 411434 
«43 =O 

22190 NEXT J 
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5,52 SL: LET KER QD =L 
2 1g: LET £123,354 
35,6) =18: LET К(18,5! 


5400 REM fili arrays 
5410 FOR 1-1 ТО 15 
5420 READ Бі) 

5430 NEXT і 


55200 NEXT i 

5532 FOR ізі ТО 22 

5540 READ vlil 

5550 NEXT i 

5560 FOR 1-1 ТО 6 

5570 READ PII, TI: LET р (1,23) сі 
5575 READ p (i; ,3!: 

5530 NEXT i 


“Чи NOU th 
Ізі” Ue tp 
it’, Sag 
ern off" gE 


sack'","cookbook"'","Lteaflet" 


h 
K 
а 
DATA "Lantern","wheatpile". 
s 
dages","sword","cookie","I. 


ГАЛ 
zm 


ж 
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eis “Estes к МОРЕ ter”, "Sneak 
LLhound". "barbecue", “bom те" 
ATA "reset cave", "t-cave” 
t corridor’, control fF OO ffi 
ve'"',"i-cave'","tpace-cawve" 
room" ."p-cave","e-cawve', 
"emptiness", "small саме! 
2) саме, SMELLY cave" mdr 
гез, 76 є cave” "qella 
t kU "stinky F 


em | 


гн 


ак 
jani 
; Fanart Cave”, 


LO 
Soret SS an 
-r 21 I 
cO. m — 23 
In Ió m c qm rm 


ЭР 

; C сі 

red cave","ice Cave” apen plac 

""Wwaods","woaods',"waods"',"waood 

","Waods",."waoods'","woaods',"waaod 
"."wcods'","wcods'","waaods" 


рата 34.30. 
я 34,2,16,15,17,4,29,2,8 


28,21,14,15,13,0 


Ji- ITI 
бе буу C) 


Ti- (H: 
Са p ба Cs Ca 


Ji- 


The Wolf and the Five Little Goats 


A Grimm's fairy tale? No, an intriguing board game! This game is played on a 
checkerboard displayed on the screen. As the game begins, the goats are scat- 
tered throughout the lower half of the board and are represented by little 
squares containing a number. The wolf stands at the upper left-hand corner of 
the board. 

Off we go — you are the wolf, and the computer controls the goats. You 
win if you eat three goats, and the computer wins if one of the goats eats you. 
(These wolf-eating goats are amazing creatures!) 

You may start. On the lower part of the screen you see: 


YOU MAY ENTER... MOVES 


for example 


YOU MAY ENTER 2 MOVES 


The number of moves always lies between 1 and 3, and tells you how many 
steps you may take during your turn. The wolf — in other words, you — may 
move horizontally or vertically, but never diagonally. Each move must be 
entered on the cursor keys. If the /ast move of a series of moves brings you on 
a square with a goat, the goat is yours. You may never cross a square that has a 
goat on it. 

There are 5 goats in all, and they may jump over each other. Goats can 
move only in one direction. The number of steps they may move is shown on 
the goats themselves, and is always between 1 and 5. For instance, if a goat 
bears the number 3 he can move 
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3 steps to the left, or 
3 steps to the right, or 
3 steps forward, or 

3 steps backward 


He cannot move 1 step forward and 2 steps to the left. If you (the wolf) have 
moved to a new position the computer shows 


NOW IT'S MY TURN 

When it is your turn, the computer shows 
YOU MAY ENTER ... MOVES 

At the end of the game the computer either tells you 
YOU WIN! 

or worse 


YOU LOSE 


10 REM THE WOLF AND THE 5 LITT 
LE GOATS 

1082 GO SUB 1090 

110 REM input move 

120 PRINT AT 15, 2; "YOU MAY ENTE 
В ";bw;" MOVES 

132 LET 1%- INKEY $ 

140 LET drw=(ts$="6" AND recrbma 
X)-it$£$2"7" AND rw»rbmin) 

150 LET dkw=(t$="83" AND киска 
Х1-і1%-"5" AND kwokbmin! 

150 IF (tdrw4+dkw)} =й THEN GO TO 1 


3e 
rri: IF ((SCREENS (ru+dru ku+dku 


< > "1 AND (bu:>11l1 THEN БО ТО 
158 
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130 LET bw=bu-1 
180 PRINT AT ruku; PAPER 4; '' 
200 LET ru=ru+3d3ru: LET ku=ku+dk 


u 
210 PRINT AT гш, кш; "у" 


220 IF ьи»О THEN GO TO 120 

= FOR ізі TO 5 

2 ІР Гиеэріз,1) ТИБЫ 58 TO 28 
E 

в! IF K@ ¿>p (1,2) THEM GO TO 28 


ra 


IF pii,3:=@ THEN GO TO 252 
LET pt2;3) 28 

LET b€at=beatel 

NEXT 1 

LET bwzINT (RNO#3) +1 

IF beatz3 THEN PRINT “YOU H 
STOP 

PRINT AT 135,6; "МОН IT’S MY 


“4 
х fg una 0 4 On Gf] 


pe £7 Р CO Ca Co Car Cz Ca zz Ga Por qo po pur Fur 


к> буй 4 C GT OUT ЛІ Л Ри 
20) ONAN с бб) 


REM €valuation 
LET max --480 
FOR izi IO $ 


5 

ë 

Q IF р(1,31::2 THEN GO TO 49а 
Ө LET KSSE .2) 

8 LET Гг8 р (1,343У4ф (1,3) 

ә со SUB 588 
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GO SUB "oe 


450 LET ksezzspiíii,2)-4píi,3) 

450 со SUB Бой 

470 LET kszspíi1,28)-píi,3) 

430 GO SUB 588 

ағай NEXT i 

Бб REM move š 

510 PRINT AT Piimax,l)!,píimax,z 
); PAPER 4;' 

S20 LET er РЕЯ 

S38 LET ріінах , 2) тійах 

S40 LET plimax,3) SINT ЯМС x51 41 

550 PRINT AT гпах,ктах ;Plimax,3 
! 

270 IF цах-400 THEN cO TO 110 
sË PRINT AT 19,8; YOU LO 
3 1: 

598 STOP 

Ego REM ztaius MOVE +I х 

510 LET etat=8 

620 IF ttreirbmind ОБ (rs»rbma- 


11 THEN RETURN 


езге 


IF iiks:kbmin) QR (Ке»кКБмах 


1) THEN RETURN 


Бас 


LET 4:585 (Ггу-Г51)4885 (kw-k 


IF d=bu ТНЕМ RETURH 
IF dzibw-2g) THEN LET stat-- 


IF d=@ THEN LET stat=500: G 
IF а‹=5 THEN LET stat=stat+ 
IF rssrw THEN LET stat=stat 
IF ks-kw THEN LET stat=stat 


IF ABS ipii,l)-fw)-4RHBS (p (i 


2} kw)-bw THEN LET statzstat4aea 


тра 
730 


FOR tsi TO § 
IF rs<>pit,43 THEN LET stat 


=51а1+1@ 


748 


IF ks:»pit,2) THEN LET stat 


-51а1410 
750 NEXT 


768 
тво 
738 
1000 
1010 
1215 
1020 


1 
IF stat+RNDimax THEN RETURN 


LET мах==1а1: LET imaxsi 
LET rmax=rs: LET kmax=ks 
RETURN 

REM init 

DIM р(5,3) 

LET rbmin=5: LET rbmaxzi4 
LET bwzz: LET thax =-400@ 
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1@2 
1230 
1040 
1042 
1045 
ER š; 
1045 
1050 
1060 
паб 
1070 
in 
10230 
1080 
11800 


1139 
1120 


LET kbmin=1@ LET kbmax=19 

LET rw=rbmin: LET kw=kbmiri 

LET Ььєаїзд 

FOR i=@ TO 9 

PRINT AT гЬміп+і ,kbmin; PAP 


NEXT i 
FOR 1-1 TO 5 
LET pli,LiIsINT (RND#5) +r bmi 


LET Píi,2)sINT (RND4128) +k bm 


LET ріі,21-с-ІМТ (RNDs5) +1 
PRINT RT P ti; 1) ,Pli, el eli, 


NEXT i 
PRINT AT rw kw; 47 
RETURN 
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Spring 


A number of well-known computer games are based on tairly straightforward 
physical equations. For instance all those 'lunar landing’ games use an equation 
which gives a position as a function of time when the initial position and 
velocity and the acceleration due to gravity are known. 

SPRING is also based on a physical idea, or to be more precise, a physical 
fantasy. Imagine a spring with one end fixed to the centre of your computer 
screen and a ball attached to the other. If this were a normal spring, when you 
stretched it and let it go the ball would simply bounce back and forth. This 
however is an unusual spring, subject to some very mysterious forces which will 
cause the ball to move in a most peculiar manner — as you will soon see! 





є REH SPRING 
1@ LET xzRNDx250: LET y=RND416 


e 

20 LET ұхаб: LET Учай 

30 LET ax=RND+504+5: LET agzRMND 
45045 


40 PLOT х,ч 
50 LET үхиүх-4(127-х) ах: LET x 


60 LET vy=vu+i9S-y) vay: LET уз 
gavu 

70 DRRU ух ,Уч 

ae GO TO 50 
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Road Race 


Ladies and gentlemen, the cars are now on the grid waiting for the start of the 
most thrilling Grand Prix you are ever likely to see. With the world 
championship at stake none of these drivers will be looking for anything other 
than first place. The weather is fine and the track is dry so it’s sure to be a very 
fast race. Who knows, we may even see the lap record broken. The last minute 
checks have been made, the drivers are now revving their engines up to full 
power and, as the starter’s flag drops, they're off... ! 

After the RUN command the computer shows READY and then a few 
seconds later you’ll be on your way. Control your car with the cursor keys. 
During the race you must not only look out for other cars, but also try and 
drive over as many of the red spots on the road as possible. These will earn you 
extra points. 


10 REM ROAD RACE 
188 REM main program 
110 GO SUB 1000 
120 PRINT HT 2, Si SCS ,$C;" 
time leftz";ti 
130 GO SUB заа 
135 GO SUB 520 
140 PRINT AT rc,cc; 
150 PRINT AT 21,0: POKE 23692,- 
1: PRINT 
160 GO SUB Боз 
170 LET tisti-1 
130 IF ti»zà THEN GO TO 120 
180 PRINT AT 2,5; YOUR SCORE 15 


Te 1 
200 PRINT AT 1,5;"------------- 


2189 INPUT “Another game iy Gr n 
TU .. 


FF "Ча 
220 IF ys$="y" THEN GO ТО 110 
230 STOP 


зав БЕН, track 

310 IF xW +du) «8 OR (xwedweww? : 
240 THEN TET du=@: LET Lw=@ 

320 LET iwziu-1i 

338 PLOT xw.yw: DRAN аш,-8 

зай PLOT хизши,чи: DRAW dw,-8 
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LET t#=INKEYS$ 

LET ccscc+i(tg="8" AND CCID 
$z"5" AND сс21) 

D LET cSa«SCREENS (re, ce) 

640 PRINT AT frc,cc;"B" 

650 IF c$s" " THEN LET sc=sc+1- 


i 


350 LET хиих үхиычан 

aee IF iui: THEN RETURN 

370 LET ішсшімт (tRNDO#4) +2 

3880 LET dwzINT (RND4171-9 

280 RETURN 

cog БЕН obstacies 

510 LET 3azRHHD«150-4sc 

s20 ТЕ 33:153 THEN RETURN 

езе LET cozINT íRhD«3G4xw^31!-41 
540 IF ga»zz5 THEN PRINT AT ге, 
co; INK 3; "A": RETURN 

550 PRINT AT 20, с0; INK 5; с" 
S6@ RETURN 

БОС REM car 

618 

еге 

= í t 

= 


ы 
г 
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656 


if C= a THEN LET =с=5с+10 


BEEP .1,6: RETURN 


eae 
692 


LET sc=sc-25: BEEP 1,1 
RETURN 
REM init 

FLET ТВ: LET CCS 


LET NESTED: LET UST 
LET twsB: LET dus 

LET SCS: LET we =42 
LET tiszóae 

RESTORE - RANDOMIZE 
FOR kz TO 7 

READ c 

POKE USF a FCC 

NEXT k 

FOR Kel ТО 7 

READ c 

POKE USR "b" +k ,c 

NEXT k 

PLOT xw,rc«a: DRAW 2,-гсСса 
PLOT xw+uw,.fc#8: DRRU @ ,-r 


PRINT AT 0,5, FLASH 1; “READ 
FOR 1-1 TO 6: BEEP „5,1: МЕ 


RETURN 
DATA 24,65,68,24,24.,24,68,6 


DATA 65,65,24.,24,24,68,68,2 


LS 


г 
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At the Market 


Have you ever wandered through a market and been amazed at the speed with 
which the salesmen can add up a list of prices? Play this game with your family 
and find out how good a market trader you would make. 

You will see pairs of numbers of increasing length which you have to add 
up. You will soon find out that this isn’t as easy as it sounds. To see why, 
consider the sum 


75856 
+ 37637 


Normally you would add the numbers in the right hand column first, then the 
column next to it, and so on. With the computer, however, you must enter the 
answer starting with the left hand column. It is this difference that makes the 
game so tricky. 








How many numbers can you add correctly within the time limit of about 
one minute? Can you beat our record of eight? 


100 REM RT THE MARKET 

110 CIM афі10,201) 

120 FOR ісі TO 18 

130 READ agti} 

140 NEXT i 

150 LET 15:ЕМ 10): LET psi 

150 CLs 

170 LET azINT (‘RND410tp4+1) 

150 LET b=INT :RND*x10TpP-41! 

190 PRINT AT 5,12;a;RHT 6,12;,b:" 
+" RT 7,18:"------ Ре 

206 INPUT “Answer: ";c 

218 PRINT AT 8,12;:;с 

220 LET tizFH 10(1-15 

230 IF a+b=c THEN GO TO 230 
2040 PRINT “Urang, it was: ":азь 
25@ LET р-р-1 

zog со TO зар 

zog LET р=р+1 

290 IF 11:58 THEN PAUSE 50: GO 


TO 1868 

340 IF р-10 THEM LET р-10 

310 PRINT “Your $COFe 15: "jasi 
P +1! 

S20 PRINT “Your time is “;ti;” 
seconds" 

330 INPUT "Do ycu want to play 
again iu ог п) 7°; ys 

340 IF y$="y" THEN GO TO 150 

350 STOP 


380 DEF FN 1()-1МТ ((65536«РЕЕК 
SS6744+2564PEEK 23673-РЕЕК 23672 


) /6@) 

400 DATA “try again","scheol ki 
d".,"paperbog" ","clerk","auto deal 
er" ,"prettu good","oil magnate”, 


“millionaire”, "world Champion"," 
іс that you Wim” 
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Fallout 


At the start of this simple but absorbing game you will see eight horizontal bars 
with gaps in them. Above the bars are eight checkers which can fall through the 


gaps. In this example 


O 0200000 


|! ШЫНЫ шш ШШ 
EE шан G G ян 
шин Быны жан ян ON 


checker 2 has already fallen into a gap. The object of the game is to get all 
eight checkers through the bars. You can do this by moving the bars to line up 
the gaps for the checkers to fall through. 

To move a particular bar enter a command of the form 


BDS 
where 


B is the number of the bar (the bars are numbered from 1 at the top to 8 at 
the bottom) 
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D is the direction you wish to move it (I for left, r for right) and 
S is the number of steps the bar has to be shifted. 
For instance 


3r4 


moves bar 3, 4 steps to the right. This might sound like a very simple game but 


when you actually start playing it you will find that it provides quite a stiff test 
of your ability to think logically. 


FEM FALLOUT 

DIM h (17,9): DIM ZU) 
LET scs: LET br=@ 
REM Fill with bars 
РОН Msi TU 27 

FOR ч=2 TO 9 

LET В х,у? зі 


л FU E Far Cr OO = р COT UT P Ca für es 
rm 
м 
д 
Гы 


RPR 


Ee ER 
uU ui te 
t c) 
112 
mm 
Ж 

34 
Л 
с< 
e 


E 1-5 on Тор 
bel TO S 
LET & f24#b,1) =b+188 


ыз 

1 

21 W 

rn m ci 

»ж Tl 
-4 


1888 


peque 


сағаға (74 ca ба Са 
10 
Ты 
DÛ OI r 
n 
и 
сэ 


zuc 
T 

C 
чс 


"n 
"En Cr rn 


“bar, lefrtrright, turns 


SAL 2:415 +1 
2) OR (498) THEN GO T 


C£ po po [L E > 
z fg Te C3 VCI CU ~. 


uc 
fu: вэ 


ІЛІЛ f 
ы 
FAT 48 1H 0 117 


mm 
34 
H 


ra 


фі 

dx =AL 281 

IF ах=@ THEN co то UR 
I (déco L”) AND (d$: 
со TO 580 


Fr cn СЛ £« ca Cn РО p 
2763 GC 053 153 123 37 
Г 
rn 
-Я 
хы 

+ 
" 1 
t4 


Zu udi N 


4 
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iû û n + 4 
| 


ul! 
шш аш Г- e 
а пд ву dis die "m "ч —. La 
pe fe eo tt O WO LU ae we u" 
YE. GOULD «c 
Rbk GE EIE: 
' Ja e Ә S --1 
32 H O [fet 74 جو‎ <. 
Hu Wc mau. Hon I1 HH ÛÛ e LI 
Wr IO IL х Mu ws ppl | p 
"nu ONAT Fe uu E Z 
к Ээ uu м REF 
M. L. шті uos P C C Lot Û 
AFA 460 C) E34 I Ch E. И о е о Z ü 


17) 54 ға баға са қалаға шаға 074 17: 172 174 173 154 173 ғу 


P OH ERI O «Чу pe ce ae CU m Loh mi e 


ua b o unu uc un UD E53 6523 C C ға ғ таға у un e е ID UO с 


D ЗҮ еі еі еі еі еі 


2. 


PRINT PAPER 


RINT 


1 P 


THEN 


E 
жамы 
НН F 
A CE Ud IU. Й. 
"Ka OE kel H 


H 
1 THEN 


М 
e 


ууу) 
EI rg x) v 


È ririri 


- 
z- 


CHR $ 


PRINT 


THEh 
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гб FOR c 
Егіс FOR x 
FEES LET i 
2030 IF ht! 
ec 

gol IF tybe 
2050 IF hix 
2iaao 

28608 LET hix,tucl)zshix,tul 
гатда LET híx,tu1z 

z630 LET tu=tu+l 

zese 50 TO Ед40 
гіда NEXT x 
2110 НЕХТ c 
2120 RETURN 
2130 LET 50:54 
2140 LET hix,tu 
сієс со TO 21808 

ЗОРО LET timÁmzhii,.ul 

3019 FOR x=1 TO 26 

weed LET пх, Чан СУЧ: Цу 
ЗОЗО НЕХТ x 

2040 LET 8(17,4) STR 
30650 RETURN 
4000 LET tmah (17,89) 

4010 FOR xzi? TO 2 STEP -1 
4@20 LET híx,.gyizshíx-1,y1 
4030 НЕХТ х 

40420 LET hil,u)stm 

1050 EETLRH 


a THEN GO TO 213 
1ц41)45»0 THEN GO ТО 
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Ship's Attack 


First, let's describe this game as realistically as possible. In the lower half of the 


screen is a shape like this: 


Little squares fall down from the top of the screen. You must move the shape 
using the cursor controls 


4— ——— and —————»- 


to stop the squares hitting it. If that sounds dull what about this... 

You are captain of one of the finest ships ever to sail the seven seas. As 
you cruise majestically across the ocean you can't help feeling proud of the 
magnificent vessel under your command. Then just as you are nearing the 
harbour and the end of your voyage is in sight, disaster strikes — 


A FLYING SAUCER ATTACK! 


How can you escape these unfriendly invaders from across the universe? Why 
not try your 


SUPER ATOMIC ESCAPE MOTOR? 


The more flying saucers you avoid, the more points you get. That sounds 
better, doesn't it? Anyway, the game is fast, simple and great fun to play, and 
that is all that matters. 
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198 REM SHIPS ATTACE 

со GO SUB гай 

ae FOR 121 TO 4: PRINT AT bíi? 
we he ia ле NEXT E 

48 LET vev4+(INKEY$="8" AND у :2 
31 - |ІНКЕУфФфа"5" AND v»3) 

50 PRINT AT 20,0; ІНК 5; муф; 

60 FOR 1х1 TO 4 

ТО IF bíi):z28 TREN GO TO 129 

80 LET bíi)s4: LET cti)sv-34IN 
T :RHDx11! 

agp LET р=р+1: PRINT HT 0,8;Р: 
100 IF р=25 THEM LET s=2 

112 50 TO 130 

120 LET Ь(11)-5(1)45 
p PRINT RT biil,ctil; INK 1:5 

140 IF bf11+¢28 THEN GO TO 180 

150 IF íicíi)-v:85 AND сі11-у>»01 
THEN BEEP 2,20: INK @: PAPER 7: 


160 NEXT i 

178 со TO 38 

19S REH init. 

220 PAPER 3: CLS 

БІЗ LET v$z" "«CHR$ 1344+CHRS 14 
@+CHRE 140-С0НЕ 5 1274" " 

220 LET sz$-cCHR$ 140 

230 LET 541: LET раб: LET vais 
рай DIM bid}: DIM сг) 

25@ FOR 1-1 TO 4: READ bti): RE 
HD сії): NEXT i 

260 PRINT AT 2,0; "POINTS: 8", 
270 RETURN 

238 CATA 16,4, 12 m. um 16,8,2@8 
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Mini Mancala 


MINI MANCALA is based on an old Arabian game. It is played by moving stones 
between cups. There are four cups: A and B are the computer’s, and C and D 
are yours. At the start of the game there are two stones in each cup. 


Се) 


0 


A (computer) B (computer) 
C (you) D (you) 


In turn, the players take the stones from one of their own cups and distribute 
them counterclockwise to the other three cups. For instance you might choose 


to move the stones from cup D like this: 
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3 
© 


A (computer) ЖА» В (computer) 


anticlockwise 


0 
0 


C (you) D (you) 


After this move cup D is empty. In fact, there will always be at least one empty 
cup, because during each move stones cannot be put back into the cup from 
which they were taken. 

To win the game you must get all the stones into your own cups. 

On the computer, the cups are represented by squares with numbers on 
them indicating the number of stones they contain. You can choose the level of 
difficulty you prefer, 1, 2, or 3 (1 being the easiest), and who has the first 
move. The computer will ask which of your squares you wish to move the 
stones from and will tell you what its own move is. The position of the stones 
on the board is displayed after each move. 

You may be surprised that this complicated game can be described in such 
a short program. The diagram shows all the possible moves, and is an excellent 
example of how a strategic game can be represented schematically. 
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1@ REM xxx mini mancala +++ 
ее DIM mí2,2): DIM Lí4,2) 
за со TO таа 

a2 REM initialize xxx 

1@@ FOR і-1 TO 2 

119 LET CE es LET а(2,11)- 
120 FOR ісі TO 
130 READ х: LET 13,211 mx 
140 NEXT j 
150 NEXT i 
160 LET turn=9@: СЕТ xturn=0@: RE 


170 DATA 1,2,2,1,1,1,2,2 

199 REM display board заз 

200 CLS : PRINT AT 8,14;"2 г" 
210 PRINT AT 10,14;"2 8" 

„212 PRINT AT 4,10; MINI MANCALA 


214 PRINT AT 7,12; "A B 
216 PRINT AT 11.12;"С Dj 
220 FOR 1-0 TO 4 STEP 2 

230 PLOT 1054155,115 

240 DRAW 2,-3г 

250 PLOT 108,115-; %8 

260 DRAN 32,0: NEXT i 

265 RETURN 

2099 REM input +++ 

300 PRINT AT 26, ?; "NOU IT'S YOU 
R TURNI" TAD 31;' 
10 INPUT "MOUE STONES FROM WHI 


CH CUP?"; TAB Зо; "Сс OR D? ны» 
зза ІР ix$z"C" OR хфа"с") AND m 
(2g,1):8 THEN LET L2: RETURN 

340 ТЕ (x$="D" OR x5$z'"d') AND M 
(2.,2):8 THEN LET 1-3: RETURN 

350 BEEP 1,3 

aeg cO TO 310 

385 REM computer's turn +++ 

400 PRINT HT 20,7; NOU EF O MY 
TURN! 


412 FOR ш:0 TO 300: NEXT и 

420 LET gq=mt1,114100@04m(1,21 4102 
да+ (2,1) #10+m (2,2) 

430 LET 1-4 

440 IF ті1,11»0 AND (Llev:3 AND 
RHDxLe&evz,4) OR m(1,2)=@ OR q=143 
0 OR 4-1340 OR 4-6110 OR 421182 
THEN LET ізі 

450 PRINT ЯТ 21,3; "І MOVE STONE 
5 FROM CUP ";CHR$ (654+(1=4)) 

468 RETURN 

490 REM seed зээ» 

500 LET 9=1 (1,1): LET fel (1,2) 
510 IF míg,h)zs0 THEN RETURN 

520 LET (5141: IF (4 THEN LET 
іші-д4. 
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536 LET ізі 16,33: LET gatit,2 
540 GO SUB 5800: GO TO 518 

SSS РЕМ move one stone xxx 

pag FOR u=1 TO 200: NEXT u 

618 LET Míg,h)zmig,;h)-31: LET wi 
1,411 58й(1,3341 

5280 PRINT AT &4«29,1242xh;míg,h 


) 5 
PRINT AT 8+241,124¢24¢j;mli,i 


RETURN 

FEM main program +++ 

GO SUB 122: со sue зада 
INPUT “LEVEL 1- ач 

ЇЕ аф-. 1" AND 4. ype AND 
"З" tren 50 TO 218 

LET Lexy =AL аф: PRINT AT 14 
: | LEVEL ="; tev 

зар INPUT “HHO атава? YOU ГҮ) 
OR HE (M) 7"; TAB 32; 

foe IF aS" Y" OR азы» THEN 60 


760 IF a$:»"m" AND asi: "MM" THEN 
со TÜ 748 

тта FOR w=8 TO 200: NEXT w: GO 
SUB 300: GO SUE 5802 

foe LET turnsturn41: IF wti, 1) 4+ 
й1ї1,Е1:0 THEN PRINT AT 20,6; "YOU 
WIN IN " turn+x игеп" TUNNDS!"*;T 
ВБ 21. G TAB 84-% "іє БО ТӘ 838 
7902 IF turn -4ü THEN GO SUB 888: 
IF turn=48 THEN GO ТО 830 

зей FOR w=8 TO 2200: NEXT ш: GO 
SUB 400: GO SUE 500 

2190 LET tüurnzturn41: IF NESL 
Wiz.z)-8 THEN PRINT AT гд,5, 1 l-i 
IN ІМ “SIS turned» turn; " TURNS! ' TRE 
das “ТЕН 31;" со TO зза 
880 IF turn=4a THEN GO SUB Saga: 
IF turn=4@ THEN GO TO 830 

825 GO TO 770 

030 INPUT "DO YOU WANT TO PLAY 
HGHIN7?";TRB 32; "ү OR N : “jas 
840 IF афо"ч" OR афа"уУ" THEN RU 


N 
E s IF a$z"n" OR афа"М" THEN ST 


геге GO TO 838 

9200 INPUT "I THINK WE ARE ІМ ñ 
DRAW. DO YOU WANT TO CONTINUE? ` 

OR H : l“ as 

910 IF афао"ч" OR афа"у" THEN LE 
T xtüurnsexturn4tuüurn: LET turns@: 
RETURH 

9220 IF a$-" "n" OR афа"М" THEN RE 


yi 
Gi 
"у 


[кебу Р- 
мо багуш rt 


- 


ги 
Jp ча I I 


ҮР 
UR 


on 
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TURN 
өзе cO то зад 
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Stop It! 


Although this is only a short program it gives rise to a fast and exciting game. 
The screen looks like this 


The square on the left has a letter on it. When it moves across the screen you 
must try and stop it іп the region bearing the same letter, by pressing any key. 

At the start of the game the computer requests a level of difficulty (1 is 
easiest, 2 is harder, and 3 is most difficult) and asks you how many times you 
want to play. You will be shown your score at the end. 
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1 REH STOP IT 
S LET t&z'abcd ": LET TOS L 


109 INPUT "difficultu (1-3): 
di: LET 4-10-3441: 
28 INPUT "number of turns: ";n 


30 FOR csi TO S 

40 FOR г-0 TO 15: PRINT RT г,1 
443502, PAPER 0: ";: NEXT г 
жа... PRINT AT 0,1543хС,18(С): МЕ 
ж Ç 

des ЫГ c=INT IRND+*4+11: LET b$ 
= ГЭ 

ТО LET tuztus«l: LET fzes«2xINT 
(RHD*7?7): LET с1=@ 

30 PRINT RT r,c1;" ";b$: FOR i 
зі ТО d: NEXT i 

98 LET сізсіз: IF (61433113 AND 

(INKEYS="") THEN GO TO 80 | 

108 IF CINT i:cil-15).;3)1):»c) ОБ 
{cl=17+3#c)} THEN GO TO 1260 

110 BEEP 1,7: LET hishi431. GO T 
0 138 

120 BEEP 1,4: LET і%- ЇМКЕҮ $ 

138 PRINT MT 20.0; “Store : “pha 
9 out oF ‘Sty, Terns 

140 IF ШЕ Іі. THEN GO TO 680 
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BABA 


A thema con variatone is a tune that, although it is based on one that has been 
heard before, has its own mood and identity. This game could be considered as 
а thema con variatone as it has some similarities with another game in this 
book, but presents its own unique challenge to the solver. 

You will see 16 fields filled with a random arrangement of As and Bs e.g. 





When you enter one of the fields (using the key shown on the screen) all the 
letters on the horizontal and vertical rows through that field will be altered so 
that all the As become Bs and vice versa. Your aim is to end up with a screen 
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which looks like this: 





5 БЕН THE SWEDISH POPSONG 
10 DIM Ь{4,4) 
ЕЙ FOR rsi TO 8: FOR cai. TO 4 
30 LET bir,c)zINT (8МГ-2) 

40 NEXT c: МЕХ? f 

Së REM x»xx*xzscreerne*x 

6@ PRINT ЯТ 5S,656;"KEYS'";TRB 18: 
‘BORRD" 








70 LET 1-9 
8@ FOR r=? ТО 13 STEP 2 
S@ FOR k=3 TO 12 STEP З 
100 LET ізізі1 
110 PRINT AT r k; 1 
128 PLOT К+8-4.60@: DRRU 0,64. 
130 PLOT 20,154-r«8: DRAW 96,68 
140 NEXT k 
158 NEXT г 
ua гі 20,124: DRAN 96,0: DRA 
Г -0 
179 FOR r=? ТО 13 STEP 2 
180 FOR с-18 ТО 24 STEP 2 
180 IF Ь((г-51.2, (c-16) 72) THEN 


PRINT AT г,с; "В": GO TO 210 


год 
218 
220 
230 
240 
ese 


ян O, 


зай 
310 
520 
10 
338 
зай 
350 
350 


380 NEXT 


330 
400 


r 
C 
i 
b 
370 LET b 
b 
D 


PRINT AT r ,c; "R" 

PLOT c#8-4,6@: DRAN 0,54 
PLOT 140,164-г%8: DRRU 64,2 
NEXT с 

NEXT r 

RE 140,124: DRAW 64,0: ГЕ 
БЕН *x*get and ze HOVE LE 
INPUT "KEY: = 

IF к«1 OR К> 16 " THEN GO TO 3 


LEF оці (1К-11) -4141 

LET zk-ir-1)z4 

FOR =1 TO 4 

LET (f;i1)sNOT Db UP yil) 
(1,0) SNOT B Ut C) 
1 

LET (r,C) sNOT bire) 

GO TO 178 
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Vowels and Consonants 


This competition game can be played by the whole family. Unlike most other 
computer games, it does not involve numbers or arithmetic. The computer will 
give you seven letters: when it asks you 


Vowel (v) or consonant (c)? 


enter V for a vowel or C for a consonant. When you have your seven letters the 
computer challenges you to make as long a word as possible out of them, using 
each letter once only. You can erase a letter by pressing the SPACE key. There 
Is a time limit, shown on a clock on the screen. It is amazing how addictive a 
simple game like this can become. Try it and see! 


10 REM VOWELS AND CONSONANTS 


= INPUT “Humber ОР Players? 
пр 

30 DIM sinpi: DIM 48(14) 

4@ RANDOMIZE 

50 LET c$="aeicauy” 

ee LET $£z'"bcdfahjklmnparstwvwuw: 


f 
76 DEF FN ti)zINT (i6553S36xPEEF. 
Z3674-255*sPEER 236734PEEK 23672 
) £68) 

зо cO TO 1882 
100 REM choose Letters 
112 PRENT AT 4,4; "Turn of playe 


120 PRINT НТ 6,4; "Vowel (vi ar 
consonant ICI? " 

132 FOR 1-2 TO 14 STEP 2 

140 LET pue cad 

158 IF t#<:"c" AND t$:5»'"v'" THEN 
со TO 140 

155 IF ІМКЕҮ%:>»"" THEN 60 TO 15 
e 

160 IF ІМКЕҮ%:»"" THEN GO TO 15 


e 
170 IF t£z"c" THEN LET 4%іі) -с% 
ІМТ (RND¢64+1) 1 
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к 
171 
“+ 


заз 4. THEN LET 4%іі: ES 
I END ZE l+411) 
8,:,4 (1) 
НЕХТ 1 
НЕТПЧЕН 


REM input шога 
PRINT AT @,5; "Tame left: 45 


12 T) 
71: 
Hz 
“© 
Ak 
Tn 
-4 


PPE COCO — (CO COCO O t (ODE HE 
pu I| 


в 
М 
= 
e 
1 
д 
Я Š 
ecaorids" 
г LET t$5454FN tt) 
30 LET (=й 
42 LET ag="" 
50 LET t$=INKEY$ 
БО IF CODE t$<>Se OR NOT L THE 
со Tü 480 
ТО PRINT HT а, 
80 LET Lzi-i 
Sa LET а%са%! TO 1! 
ав IF t$:'"a" OR 1%>77" THEN GO 
TO 448 
10 LET 18141 
ge PRINT AT 3,1; 1% 
430 LET a$-za$4t5 
44.0 LET tizts-FN 10) 
250 PRINT ВТ 80,26; ti i” " 
: Q THEN СО To 352 


500 REM compute points 
510 FOR jsi To L 
522 FOR i=2 TO 14 

530 IF as$ij!-d$ii) THEN GO TO 5 


540 NEXT i 

550 50 TO 518 
560 LET d$iíils" 
o70 NEXT J 
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sae PRINT HT 11,0; “Player “р,” 
: ала “зы pointe” 
590 LET sip) == (р) +L 
Bog RETURN 
БІС PRINT AT 11,8: "Player "ро" 
used wrong tLettere" 
oz) RETURN 
10820 БЕН main program 
1018 FOR р-1 ТО np 
1828 CLS 
1838 50 SUB 182 
1040 CLS 
1050 PRINT AT 4,0; "Make a word c 
ut of these:" 
1055 PRINT AT Е,5; 4% 
1060 со SUB зар 
180870 GO SUE 590 


1030 PRINT AT 21,0; "Press апу іє 
ы to continue' 
1698 IF ІНКЕУФфао"" THEN GO TO 1829 


e 
1100 НЕХТ р 
1110 CLS 

1120 FOR ісі ТО np 

1130 PRINT “Player "111": 
Із” paints" 

1140 NEXT i 

1150 PRINT RT 20,0; "Anather raun 
ga son" тү?” 

12250 LET t= aT Ж. 

1170 IF t£-" THEN GO TO 1810 
1188 IF (848307 THEN STOP 

1180 50 ТО 1150 


in 


m 
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Astrology 


This program is based on a study made by the Dutch physicist and astrologer 
Dr. Ir. J. Van Slooten. He was a research worker at Philips laboratories who 
spent all his free time on astrology. He developed a theory that the phase of the 
moon at the time of birth was a very important astrological influence on a 
person's character. After studying the lives of hundreds of people he con- 
cluded, 5... that the moon phase forecasts the extent to which the spiritual 
and emotional life, especially with respect to a person's social environment, will 
develop and furthermore the role he or she will play іп our society... ’ 


The diagram shows the cycle of the moon's phases. As there are three phases, 
waxing, full, and waning, so three types of person can be defined. 


Individualists: born in the waxing moon phase, they have waxing energy. They 
like to work on their own, have strong wills, and are not discouraged by 
physical discomfort. 


Socialists: born in the full moon phase, they like to live in communities. Key 
words for these people are ’compare’, ‘choose’ and ‘combine’. 
Cooperation is a dominant factor but there is also rivalry and envy. 


Conservatives: born in the waning moon phase, they know that the light de- 
creases but will return again. They are careful and sure of themselves, and 
like to have everything under control. 


These three types can be further subdivided to give twelve categories 
in all: 
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Pioneers are searchers, always ahead of the crowd. Their strength of purpose 
can sometimes make them appear stubborn. 


4+ 


Coordinators like to be with other people, but feel that they are ‘more equal’ 
than their companions. They are romantic and strongly attracted to family 


life. 


Realists look at the world in a very down-to-earth manner. They like to think 
that everything can be explained in purely physical terms. 


хх 


Spiritualists are rather ‘other worldly’ characters. Philosophical in outlook, 
they are seekers after the unknown. 


<P 


Artists transform material in a creative manner. They can produce works of 
art, new products, or anything that did not exist before. 


) 
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Apostles are not themselves creative but spread the ideas of others to the world 


at large. 


Helpers take on responsibilities for their fellows that might otherwise be ig- 
nored. They are helpful and caring to others. 


Leaders also assume responsibilities but in this case for directing the lives and 
actions of others. They look forward where most people would prefer to 
look back. 


Knights are fearless adventurers, always searching for new things to explore. 
Idealistic in outlook, they have a strong sense of honor. 
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Arbiters like to preside over the actions of others. They do not prejudge issues, 
but when they reach a decision they expect it to be obeyed. 


GO 


Revolutionaries are dissatisfied with the world as it is. They tend to look on the 
bad side of things, and have a desire to change the world. 


P> 


Prophets consider the world ‘from above’ bringing to bear the wisdom of the 
past. They may not always be listened to, of course. 


x 


The program will tell you the phase of the moon on the day you were born. 
From this you can discover the secrets of your character! 
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іс 


REM МООМРННЗЕ ASTROLOGY 


гд 50 TO 1990 

100 REM input date 

110 Cis 

136 PRINT “CETERNINATION OF HOG 
HPHRSE” 

135 PRINT 

140 INPUT "бач (dd): "idd: PRIN 
T “Day е dd 

150 INPUT. "Honth imm): "jm: PRI 
NT "Honth: oe 

160 INPUT "Year (4444): "4: PR 
INT “Year: “Jy 

ЭТО IF «<3 THEN LET келе: LET 
Li 4-1 

ise РЕТЫРЫ 

200 FEM calculation 

2120 LET ісім?” :365.259Чч1 INT (2 
д.бзсітоі::заа -594038 


220 LET t=t+36525 

5—90 LET 1 а=350. 737436 +1236+1 436 
e 

246 LET 1їа-15-207514 t og 

250 LET La=ta+51.15+ ү, ^3688- 9.27 
#1 #1 2600 

26G LET Lazia-INT (lav360) +360 
2780 LET 1а-1ЇМТ (1а-.5) 

230 RETURN 

S@Q REM display result 

210 PRINT : PRINT 

S20 PRINT "Moonphasez";la;" deg 
ree.” 

520 PRINT : PRINT "Prezs any ke 
2 

340 IF INKEY$=""" THEN GO ТО 3402 
350 RETURN 

1000 БЕН main program 

1212 cO SUB 102: REM input date 
1@28 cO SUB 200: REM calculation 
cb." 20 SUB Зай. REM ditplay res 
Li 

1648 cO TO 10210 


136 








Does your brain get enough exercise? Are your wits as sharp, or your 
reactions as quick, as they should be? Tone up the muscles of your 
mind with this enthralling collection of arcade and action games, 
puzzles, brainteasers and competitions for your microcomputer. 

Battle with GALACTIC MONSTERS and ZOMBIES IN THE SWAMP, 
compete in a thrilling ROAD RACE, defend yourself against a SHIP’S 
ATTACK. 

If you survive all that you can gamble at LAS VEGAS A GO GO 
and the KENTUCKY DERBY, plumb the mysteries of the BLACK BOX, 
and stretch your mind with intriguing board games like ONE TO FIVE, 
SHAKESPEARIAN SHUFFLE, and MINI MANCALA. Theri,test your 
intellectual capabilities with VOWELS AND CONSONANTS, 
KEYBOARD MEMORY, and AT THE MARKET. Will you turn out to be 
a GENIUS AT WORK? 

By now you'll be razor sharp and ready for anything, which is just 
as well because you are not even halfway through yet! There's even 
more excitement, skill and fun for you, your family, and friends. So test 
your reflexes and mental prowess on this extraordinary obstacle course. 

What are you waiting бог... on your marks, get set ... GO! 
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